Ordner nicht leer

[DeddyH]

Weil '.' für das aktuelle und '..' für das übergeordnete Verzeichnis steht, es sind also Verzeichnisse. Daher ist das Flag gesetzt und der Vergleich ergibt nicht 0, sondern faDirectory. Hast Du mein Tutorial schon gelesen, das ich weiter oben verlinkt hatte?

[himitsu]

Jemand könnte für die Attribute mal auf die blöde Idee kommen das in ein SET zu ändern, dann kann man schön ein IN benutzen.

Gut, dann kompilieren viele Codes nicht mehr,
aber man kann sich auch gern einen ClassOperator für diesen Vergleich erstellen, damit man bei diesem Integer auch das IN benutzen kann.

Delphi-Quellcode:

if faDirectory in Rec.Attr then begin

:angle: