Memo Zeilenanzahl begrenzen

[s.h.a.r.k]

Und zwar kannst du dazu das OnChange-Ereignis verwenden:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
var
  grenze, i : Integer;
begin
  // Wie viele Zeilen darf das Memo nicht überschreiten
  grenze := 5;
  if Memo1.Lines.Count > grenze then
    for i := (Memo1.Lines.Count - 1) downto grenze do Memo1.Lines.Delete(i);
end;

Habs grad so aus dem Kopf hingeschrieben, müsste aber funktionieren!