Memoinhalt ohne nachhängendes CR-LF

[himitsu]

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