AW: Warum ist das Löschen einer Zeile aus einer Memo so langsam?
Zitat:
Delphi-Quellcode:
keine
TMemo
Delphi-Quellcode:
hat, sondern der Inhalt irgendwie als
TStringList
Delphi-Quellcode:
veröffentlicht wird. Je nachdem, wie dieses implementiert ist, geht das eben langsam oder schnell ;)
TStrings
Ich vermute mal dass bei deinem Delete 400x diese Perform Funktion aufgerufen wird und das BeginUpdate, EndUpdate hier nicht greift |
AW: Warum ist das Löschen einer Zeile aus einer Memo so langsam?
Ein Blick in die StdCtrls.pas wirkt manchmal Wunder (TCustomMemo.Lines ist vom Typ TMemoStrings, Zitat vorsichtshalber gekürzt):
Zitat:
|
AW: Warum ist das Löschen einer Zeile aus einer Memo so langsam?
Hallo,
ich habe es mal mittels Lazarus unter Linux probiert und dort funktioniert memo1.lines.delete(0) sehr schnell. Unter Win7 wurde es elend langsam.Warum, haben ja BUG und DeddyH aufgezeigt. Amateurprofi's Ansatz ist etwas kryptisch. Ich habe Jaenicke's Idee aufgegriffen und das ist auch recht schnell und hoffentlich lesbar.
Delphi-Quellcode:
Das funktioniert dann auch in unter 0.1 Sekunden statt 4,67 Sekunden mit 400-fachen memo1.lines.delete(0)
const
MaxLineCnt = 5000; DelFirst = 400; procedure Tform1.Memofuellen(Sender: TObject); var Formtxt : string; i,k : integer; TmpList : TStringList; begin //Irgendeinen Text erzeugen mit laufender Nummer vorweg Formtxt :='%.8d'; k := 64; i := length(Formtxt); Setlength(Formtxt,i+k); repeat inc(i); FormTxt[i] := chr(k+32); dec(k); until k < 0; i := MaxLineCnt; TmpList := TStringList.create; with TmpList do begin BeginUpdate; Capacity:= i; while i >= 1 do begin Add(Format(Formtxt,[i])); dec(i); end; EndUpdate; end; Memo1.lines := TmpList; TmpList.Free; end; procedure MemoZeilenentfernen( Ab,Anzahl:integer;var Mem:TMemo); var i,k : integer; TmpList : TStringList; begin TmpList := TStringlist.create; try With TmpList do begin AddStrings(mem.lines); k := Ab; i := Ab+Anzahl; // Ueber das Ende hinaus, dann begrenzen IF i > count then i := count; Beginupdate; while i < Count do begin Exchange(k,i); //Zeigertausch inc(k); inc(i); end; //Loeschen von oben nach unten while i > k do begin dec(i); delete(i); end; EndUpdate; end; Mem.Lines := TmpList; finally TMPList.free; end; end; procedure TForm1.Button1Click(Sender: TObject); var T1,T0: TDateTime; begin IF Memo1.lines.count = 0 then Memofuellen(self); IF memo1.lines.count<=DelFirst then begin memo1.lines.clear; EXIT; end; T0 := now; MemoZeilenentfernen( 0,DelFirst,memo1); T1 := now; Edit1.text := FormatDateTime('HH:NN:SS.zzz',T1-T0); end; Gruß Horst Update: Ich habe mal eine ausgelagerte Prozedur daraus gemacht, mit der man auch innere Blöcke von Zeilen entfernen kann. Bei Test mit 1e5 Zeilen dauerte die Übergabe an die Stringliste TmpList.AddStrings(memo1.lines) 1 Sekunde und das Löschen der ersten 400 Zeilen selbst unter 1 ms. Man sollte also vielleicht generell die Daten in er seperaten Stringliste halten. |
AW: Warum ist das Löschen einer Zeile aus einer Memo so langsam?
Zitat:
Du kannst das mit Memo1.BeginUpdate vor dem zeilenweisen Löschen und Memo1.EndUpdate wenn alle Zeilen gelöscht wurden, unterdrücken. MfG, terence |
AW: Warum ist das Löschen einer Zeile aus einer Memo so langsam?
Ein bisschen spät, gell? :mrgreen:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz