automatischer zeilenumbruch bei memo

[Max Langer]

ich bin gerade dabei ein Programm zu schreiben was einen eingegebenen Text in einem Memo in ein anderes Memo kopiert, wo dieser dann durch StringReplace verändert wird.
Jetz habe ich das problem das Memo1.Lines[1] kürzer ist als die in Memo2. in memo1 macht er denzeilenumbruch dank WordWrap von aleine aber wenn ich das dann verändere wird in Memo2 trotz WordWrap kein zeilenumbruch gemacht. also das sieht folgendermasen aus:

Delphi-Quellcode:

 for i:=0 to Memo1.Lines.count-1 do
         begin
         Memo2.Lines[i] := Memo1.Lines[i];
         Memo2.Lines[i] := StringReplace(Memo2.Lines[i],'a','aaa', [rfReplaceAll,rfIgnoreCase]);
         end;

das funktioniert, aber wenn ich jetz solange a eingebe bis Memo1 einen zeilenumbruch mach und dann die obrige procedure ausführe macht memo2 keine zeilenumbrüche.
Woran liegt das??
Bitte helft mir.

Danke im vorraus


Max

[r2c2]

Guck dir mal TMemo.Text und TMemo.Lines.Assign() an...

mfg

Christian