Wie fügt man einer Memo mehrere Zeilen gleichzeitig hinzu?

[xineohp]

aber mit Umweg über eine Stringlist scheint es zu funktionieren. Probier mal:

Delphi-Quellcode:

var s: tstringlist;
...
s := tstringlist.Create;
s.Add('aaaaa'+#13+'bbbbbb');
memo1.Lines.Text := s.Text;
s.Free;