FindNext is so lahm, gehts auch schneller?

[ereetzer]

Hallo und frohe Ostern,

habe in meinem kleinen Progrämmchen eine kleine Suchfunktion eingebaut:
Code:

Code:

var
  SR: TSearchRec;
  ListItem: TListItem;
begin
  try
  if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
    ADirectory:=ADirectory+'\';

  if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
          inc(Count);
          ListItem := suchen.ListView1.Items.Add;
          ListItem.Caption := aDirectory+SR.Name;
          ListItem.SubItems.Add(IntToStr(SR.Size));
          ListItem.SubItems.Add(DateToStr(FileDateToDateTime(SR.Time)));
          ListItem.SubItems.Add(TimeToStr(FileDateToDateTime(SR.Time)));
          ListItem.SubItems.Add(attr_(SR.Attr));
          if suchAbbruch = True then exit;
     until FindNext(SR)<>0;
    FindClose(SR);
  end;

  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
    begin
      repeat
        if (SR.Name<>'.') and (SR.Name<>'..') then
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True);
      until FindNext(SR)<>0;
      FindClose(SR);
    end;

Dat funktioniert, keine Frage. ABER: warum dauert das so verdammt lange.

Also mit diesem Code brauche ich für ca. 10.000 Dateien 22 Sekunden.

Bei einem anderem in Delphi geschriebenen Programm(Quelltext nicht vefügbar), welches ich mir angeguckt hatte, dauert das gleiche nur 2 Sekunden?? :( .

Vielleicht hat ja da jemand einen Tip für mich, denn diese Differenz ist viel zu groß. Versteh ich nicht.

[Tom]

Dein Problem ist nicht FindNext, sondern das Du alles direkt in die ListItems schreibst. Zuweisungen wie

Delphi-Quellcode:

ListItem.Caption := ...;

sind graphische Ausgaben. Graphische Ausgaben sind reine Zeitfresser. Schau mal, ob die eingesetzte Komponente Methoden wie BeginUpdate und EndUpdate hat.

[ereetzer]

ahh, schon mal gut zu wiisen,

also ListItem ist vom Typ TListItem. Leider hat diese keine solchen Methoden.

ereetzer

[Tom]

Zitat:

Zitat von ereetzer

aalso ListItem ist vom Typ TListItem. Leider hat diese keine solchen Methoden.

Also: TListView > TListItems > TListItem. TListItems hat die o.g. Methoden.

[MathiasSimmack]

Zitat:

Zitat von ereetzer

Also mit diesem Code brauche ich für ca. 10.000 Dateien 22 Sekunden.

Bei einem anderem in Delphi geschriebenen Programm(Quelltext nicht vefügbar), welches ich mir angeguckt hatte, dauert das gleiche nur 2 Sekunden?? :( .

Vielleicht hat ja da jemand einen Tip für mich, denn diese Differenz ist viel zu groß. Versteh ich nicht.

Ich habe die Erfahrung gemacht, dass der erste Aufruf sehr langsam ist, sich aber bereits beim zweiten Mal extrem beschleunigt. Erklären kann ich es nicht. Evtl. werden die Daten auf irgendeine Art zwischengespeichert, aber ich wüsste ehrlich gesagt nicht wo.

Musst du mal ausprobieren. Ich habe als Beispiel ein NonVCL-TreeView-Demo geschrieben, dass explorer-artig alle Laufwerke anzeigt. Beim Start lasse ich alle Ordner von C:\ komplett suchen. Wie gesagt, das erste Mal dauert es sehr lange. Beim zweiten Mal geht es ruckzuck.

Gruß.

[ereetzer]

hmm, ok, ja.

Nu will ich ja nicht daß mit jemand den Spaß am hobby-programmieren nimmt und sagt, wie ichs ganz genau zu machen habe, aber wie zum henker krieg ich jetzt die Daten aus TListItems ins ListView.

Ich habe eben mal versucht in TListItems alle Werte zu speichern. Hat auch funktioniert, aber dann krieg ich die Daten nicht in ein Listview1.
Mist, ich glaub ich bin zu blöd dafür :cry:
Ichs habs mal eben mit ner for schleife versucht, will aber auch nicht so recht klappen.

ein kleiner Ansatz wäre toll.

ereetzer