Ungewollte Zeilenumbrüche bei Veränderung von TMemo.Text

[Giantics]

Wenn ich einen String an den Text eines Memos anhängen will, mache ich das immer so wie unten. Das funktionert unter Windows ausgezeichnet. Unter Linux wird leider bei jedem Hinzufügen ein Zeilenumbruch eingefügt.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:=Memo1.Text + 'Element1';
  Memo1.Text:=Memo1.Text + 'Element2';
end;

Ergebnis unter Windows:
Element1Element2

Ergebnis unter Linux:
Element1
Element2

Wie kann man den Zeilenumbruch abstellen?


Gruß
Thomas

[monta]

Ich würde es als schnellen fix mal mit

Code: Alles auswählen

Memo1.Text := Trim(Memo1.Text) + 'string';

versuchen.

Sollte helfen, da scheinbar durch die Text-Property da vorher irgendwie ein Umbruch entsteht. Scheint mir aber nicht ganz konsistent zu sein. Entweder Linux und Windows verhalten sich im Memo anders, oder es entsteht am Ende ein Linux-Umbruch der unter Windows nicht berücksichtigt wird. Da wäre vielleicht auch ein BLick in die Bugs, bzw. ein Report sinnvoll.

[Giantics]

Hallo!
Für meine Anwendung ist das im Moment auch nicht wirklich ein Problem, da die Daten sowieso nur intern ausgewertet werden. Die Ausgabe mit dem Memo ist nur für's Entwickeln. Mich hatte das Verhalten des Memos halt verwundert. Werde mal in den Bugs nachsehen und eventuell nen Report erstellen.
Danke!