TrimRight(Memo1.Lines.Text)
Oder du machst halt das CR/LF selber rein, wenn du es willst
Delphi-Quellcode:
S := Memo1.Lines[0];
for i := 1 to Memo1.Lines.Count - 1 do
S := S + #13#10 + Memo1.Lines[i];
//oder
S := '';
for i := 1 to Memo1.Lines.Count - 1 do begin
if S <> '' Then S := S + #13#10;
S := S + Memo1.Lines[i];
end;
// oder wie auch immer
[edit]
mißt zu langsam/viel getippt
