Dateien rekursiv suchen und in Typisirtes Array schreiben.

[alzaimar]

Mööööp!

Delphi-Quellcode:

 
if copy(sr.Name,1,1)<> '.' then begin
   if(sr.attr <> 0)and(faDirectory <> 0) then <-------------
     GetAllFiles(Frec,dir+'\'+ sr.Name, datei,ext);

Die if-Abfrage ist irgendwie falsch.

Richtig wäre (ungetestet)
  if (sr.Attr and faDirectory) <> 0