AdvMemo mit maxlines oder maxcount

[BrunoT]

Hi Tobias,

Wenn es sich um ein Memo handelt, dann geht es so:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
 if memo1.Lines.Count>10 Then
 memo1.Lines.Delete(10);
end;

mfg

BunoT