Hallo,
es genügt eine Zuweisung von Text an Text um die falsch platzierten Zeilenumbrüche zu entfernen. Besser ist es aber diese Zeilenumbrüche garnicht erst einzubauen. Das geht am besten über eine temporäre StringListe:
Delphi-Quellcode:
procedure AddText(s: TStrings; sText: String);
var
sTemp: TStrings;
begin
sTemp := TStringList.Create;
sTemp.Text := sText;
s.AddStrings(sTemp);
sTemp.Free;
end;
Grüße vom marabu