Delphi-Quellcode:
procedure TForm1.Memo1Change(Sender: TObject);
const laenge = 10;
begin
if (Sender is TMemo) then
if length(Memo1.Lines[0]) >= laenge then
Memo1.Lines[0]:= Memo1.Lines[0] + #13#10
end;
Ich frag mich halt eben nur, wie man auf die aktuelle Zeile, in der geschrieben wird, kommt ...
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.