Forum: Neuen Beitrag zur Code-Library hinzufügen
by C.Schoch,
2. Mai 2010
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
// Hier und möglicherweise bei Find() Initialiseren
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
by C.Schoch,
1. Mai 2010
Hi,
CountDirectories ist immer 0, da direkt nach dem Inkrementieren wieder Find() aufgerufen wird und der Wert dort wieder auf null gesetzt wird:
Inc(FCountDirectories);
Error := Find(RootFolder + wfd.cFileName + '\');
Leider fällt mir auser einer zusätzlichen privaten Find() Prozedur nichts ein um das Problem zu beheben