Bei Memofeld Zeilen anzahl Beschränken

[p-lab]

Hi,

das ist zwar keine optimale Lösung, aber vielleicht hilft es dir weiter:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  If Memo1.Lines.Count>22 then Memo1.Lines.Delete(Memo1.Lines.Count-1);
end;

mfg p-lab