Dateien in einem Ordner rekursiv in parallelem Task zählen

[himitsu]

Für jede Datei eine Message .... quasi die selbe Ausführungsdauer


Man kann z.B. Verzeichnisweise sammeln, oder per GetTickCount nur alle nach jeweils frühestens x Sekunden/Millisekunden oder InterlockedIncrement / AtomicIncrement im Hintergrund zählen und über einen Timer alle x Sekunden anzeigen oder ....

z.B.:

Delphi-Quellcode:

Counter := 0;
for i := 0 to 10000 do begin
  Inc(Counter);
  Label1.Caption := IntToStr(Counter);
  Application.ProcessMessage;
end;

Delphi-Quellcode:

Counter := 0;
for i := 0 to 10000 do begin
  Inc(Counter);
  if i mot 1000 then begin
    Label1.Caption := IntToStr(Counter);
    Application.ProcessMessage;
  end;
end;

[p80286]

Zitat von himitsu:

Für jede Datei eine Message .... quasi die selbe Ausführungsdauer

wer macht den sowas
if cnt and $0F = 0 then .... und wenn man durch ist, auch noch eine Message mit dem Endstand.

Was die Performance angeht, mal ist's schneller, mal langsamer (Harddisk und NetzLaufwerke).
Die Aufteilung bringt auf jeden Fall etwas (nach meinen Erfahrungen) wenn man parallel auf phys. unterschiedliche Laufwerke zugreift.

Gruß
K-H