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