Text in nur einer Zeile

[Sharky]

Hai BorlanDelphiUser,

wenn ich dich richtig verstehe möchtest Du die Zeilenumbrüche entfernen?

Dann kannst Du das so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text := StringReplace (Memo1.Text,#13#10,' ',[rfReplaceAll]);
end;