Hallo-
Ich wundere mich:
- 500 Zeilen in meiner Memo
- Ich möchte nun die ersten 400 löschen
- Das Löschen mittels 400x Lines.Delete(index)
dauert fast eine geschlagene Sekunde!!
Gibt es keine bessere Methode, die ersten x Strings aus einem
TStrings
-Objekt zu entfernen?
Entferne ich die ungewollten Zeilen folgendermaßen ist die Sache
blitzschnell erledigt:
Delphi-Quellcode:
with someMemo do
if Lines.Count > logMemoMaxLines then begin
Lines.BeginUpdate();
SelStart := 0;
// Quelle: http://borland.newsgroups.archived.at/public.delphi.rtl.win32/200609/0609161352.html
SelLength := Perform(EM_LINEINDEX, logMemoMaxLinesClear, 0);
SelText := '';
Lines.EndUpdate();
end;
Warum ist das so?