Zitat von
himitsu:
Delphi-Quellcode:
procedure TForm8.addstring(str: String);
begin
memo1.Lines.Add(str);
while memo1.Lines.Count > 1000 do memo1.Lines.Delete(0);
end;
@Himitsu das funktioniert zwar ist aber anscheinend wenig performant.
Bei einer meiner Applicationen war es deutlich sinnvoller die Anzahl der Zeilen im Memo auf 100 zu begrenzen und, die dann alle mit Memo1.clear zu löschen.
Grüsse
wo