Überlauf TMemo

[hathor]

Ein TMemo kann meines Wissens in neueren WINDOWS-Versionen ca. 2 GB groß werden.

Delphi-Quellcode:

const
  Memo1Limit = 10;

implementation

{$R *.dfm}

procedure TForm2.Memo1Change(Sender: TObject);
begin
  if Memo1.lines.Count > Memo1Limit then
    Memo1.Lines.Delete(0);
end;