Richedit/Memo "nachprogrammieren"

[alf.stefan]

Hallo zusammen

wenn man die Steuerzeichen #10#13 extra interpretieren will dann müsste das doch in etwa so aussehen

Delphi-Quellcode:

 curLine := Memo1.Lines.Count-1;
 if c = #10 then
 begin
    Memo1.Lines.Append(StringOfChar(#32,length(Memo1.Lines[curLine]));
 end
 else if c = #13 then
 begin
    Memo1.Lines.Delete(curLine);
    Memo1.Lines.Append('');
 end
 else Memo1.Text := Memo1.Text + c;

bei #10 wird in die nächste Zeile an die Position der vorigen gegangen
bei #13 wird die momentane Zeile gelöscht und an Position 1 gesprungen
sonst wird Memo1 Text weiter geschrieben.

Gruß
Stefan