TMemo maximale Zeilen begrenzen

[_frank_]

man könnte ja auch im OnChange alle zeilen löschen die zuviel sind dürfen natürlich keine wichtigen zeilen sein...

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender:TObject);
var c,i:integer;
begin
  c:=(sender as TMemo).Lines.count;
  if c>9 then
  begin
    for i:=c-1 downto 9 do
    begin
      (sender as TMemo).Lines.Delete(i);
    end;
  end;
end;

HTH Frank