Klasse für FindFirstFile/FindNextFile

[himitsu]

Ein bissl aufgeräumt und bei sowas wie die SysUtils kann man nun selbst entscheiden, ob sie eingebunden werden sollen oder nicht.

Mir ist grade aufgefallen, daß man unsere Klassen auch nehmen, um ganz leicht nur Dateien zu zählen ... einfach nur keine Callback-Prozeduren übergeben.

Zitat:

Zitat von Luckie

Ich betrachte meine Version zur Zeit als feature complete.

Falls sich bei mir kein Fehler mehr versteckt, würde ich das auch mal sagen.

Oder ich behaupte einfach es wäre ein Feature. :stupid:

[mkinzler]

Zitat:

Oder ich behaupte einfach es wäre ein Feature. Stupid

Hast du dich schon bei EM oder MS beworben? :zwinker:

[C.Schoch]

Hi,


Da himitsu die Sache mit dem Dateienzählen angedeutet hatt hätte ich noch ein Feature vorzuschlagen

ein Property welches die Anzahl der Dateien im Aktuellen Verzeichnis zurückgibt

Delphi-Quellcode:

// Hier und möglicherweise bei Find() Initialiseren
end;
FilesInFolder := 0; // neu
Dec(FLevel); 

// Hier erhöhen
repeat
Inc(FCountFiles); 
Inc(FilesInFolder ); // neu

Nicht getestet sollte aber klappen