findallfiles und faDirectory

[kralle]

Moin,

Code: Alles auswählen

 FindAllFiles(Ergebnis, SelectDirectoryDialog1.FileName,'*.*',true,faDirectory);  

wenn ich das richtig verstehe, kann ich "FindAllFiles" durch die Angabe von "faDirectory" dazu bringen, nur Verzeichnisse zu finden.
Leider scheint das nicht zu funktionieren.
Oder nutze ich habe ich das nur falsch verstanden.

Gruß HEiko

[m.fuchs]

Nimm doch einfach FindAllDirectories wenn du nur Verzeichnisse willst.

[Michl]

Zum Suchen von Verzeichnissen (wie m.fuchs schrieb):

Code: Alles auswählen

  FindAllDirectories(Ergebnis, SelectDirectoryDialog1.FileName, True);  

In der Doku http://lazarus-ccr.sourceforge.net/docs ... files.html steht nichts über den Parameter und ich weiß auch nicht, wofür er ist. Interpretieren würde ich ihn so, wie du. Wenn niemand hier mehr weiß, könnte man mal in der Mailing-List nachfragen.

Habe es eben mal getestet, das Ergebnis ist immer gleich, außer das Bit von faDirectory ist gesetzt, dann wird ein Unterverzeichnis mit durchsucht, ansonsten nicht. Alle anderen Bits werden hier bei mir ignoriert. Komisch

[kralle]

Moin,

Nimm doch einfach FindAllDirectories wenn du nur Verzeichnisse willst.

das wäre doch zu einfach
Ehrlich, ich habe nicht gewusst das es den Befehl gibt. In meinem Freepascal Buch steht er nicht drin und eine "Freepascal FindAll" bei Tante Google, brachte auch keine Treffer (wobei heute scheint Google eh zu spinnen).

Danke, für den Hinweis.

Gruß Heiko

[kralle]

Moin,

In der Doku http://lazarus-ccr.sourceforge.net/docs ... files.html steht nichts über den Parameter und ich weiß auch nicht, wofür er ist.

Aber im PopUp wenn man auf dem Befehl steht.

Interpretieren würde ich ihn so, wie du.

Das berühigt mich .

Gruß Heiko

[m.fuchs]

findallfiles looks for files matching the searchmask in the SearchPath directory and if specified its children and returns a stringlist with the resulting filenames.

Es geht also erst einmal um das Suchen von allen Dateien.

Code: Alles auswählen

function FindAllFiles(const SearchPath: String; SearchMask: String = ''; SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory): TStringList; overload;

Der Name DirAttr sagt mir, dass es nur der Attributsfilter für die Verzeichnisse die durchsucht werden ist. Nicht für die Dateien. Deswegen auch der Standardwert faDirectory:

Code: Alles auswählen

procedure FindAllFiles(AList: TStrings; const SearchPath: String; SearchMask: String = ''; SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory); overload;

Ist ein bisschen unglücklich formuliert und seltsam geschrieben.