FindFirst

[monta]

Code: Alles auswählen

if FindFirst('Verzeichnispfad\*', faAnyFile, SR) = 0 then
    begin
      try
        repeat
          if not SR.Attr = faDirectory then;
          ShowMessage(sr.Name);
//          FileListe.Add(SR.Name);
        until FindNext(SR) <> 0;

Wozu sind eigentlich die Attribute da?

Sollte nicht spätestens die Abfrage if not SR.Attr = faDirectory ausschließen, das sich beispielsweise das Verzeichnis selbst anzeigt?
Als Rückgabe erscheint neben den Dateien so nämlich '' , '.' , '..'

[Christian]

Nein, denn das Verzeichnis wird noch mehrere Attribute haben
if SR.Attr and faDirectory = faDirectory then

gibt dir zurück ob es ein Verzeichnis ist.

[monta]

Wenn es ein Verzeichnis ist,müsste doch aber im Searchrect das entsprechende Attribut faDirectory gesetzt sein, also müsste der Vergleich false ergeben und das Verzeichnis dürfte nicht ausgegeben werden.

[pluto]

Ja da hast du recht... Schau dir mal dieses Beispiel hier an:
http://lazarus-ccr.sourceforge.net/docs ... first.html" onclick="window.open(this.href);return false;

[Christian]

Wenn es ein Verzeichnis ist,müsste doch aber im Searchrect das entsprechende Attribut faDirectory gesetzt sein, also müsste der Vergleich false ergeben und das Verzeichnis dürfte nicht ausgegeben werden.

SR.Attr = faDirectory

dieser Ausdruck gibt nur True, wenn die date nur ein Attribut hat und dieses faDirectory ist.

SR.Attr and faDirectory = faDirectory

dieser Ausdruck gibt True zurück ernn das Attribut faDirectory in den Attributen vorkommt...

[monta]

jaja die boolsche Logik, jetzt ists mir klar