|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.106 Beiträge
Delphi 11 Alexandria
|
Re: Mit Rekursiver-S. auch in versteckten Ordnern Dateien fi
5. Feb 2005, 13:22
Moin St.Pauli,
der Fehler liegt hier:
if (SR.Attr = faDirectory) and
die Abfrage muss heissen:
if ((SR.Attr and faDirectory) = faDirectory) and
oder
if ((SR.Attr and faDirectory) <> 0) and
Ausserdem solltest Du statt
faAnyFile - faDirectory
besser
faAnyFile and not faDirectory
schreiben.
In diesem Falle spielt das zwar keine Rolle, aber Bitfelder wie sollte man nur mit logischen Operationen verknüpfen, damit man es nicht falsch macht, wenn es eine Rolle spielt.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|