FindFirst, FindNext

[Christian Seehase]

Moin Nailor,

Zitat von Delphi Hilfe zu FindFirst:

Der Parameter Attr gibt an, welche speziellen Dateien zusätzlich zu den normalen Dateien angezeigt werden.

Ich hab' mir das jetzt auch erst nochmal gründlich durchgelesen und bin dann beim dritten mal über diese Formulierung gestolpert

Mit anderen Worten:
FindFirst sucht immer nach allen Dateien (was sich auch mit den zugrunde liegenden API Funktionen deckt), und zeigt die im Filter angegebenen zusätzlich an.
Der Filter gibt also nicht an, was man nur haben will, sondern was man auch haben will.

Also, wie schon weiter oben gesagt:
Nimm' faAnyFile und filtere hinterher das raus, was Du haben willst. Geht nicht anders.

[nailor]

also

To test for an attribute, combine the value of the Attr field with the attribute constant with the and operator. If the file has that attribute, the result will be greater than 0. For example, if the found file is a hidden file, the following expression will evaluate to True: (SearchRec.Attr and faHidden) <> 0.

Demnach nach faanyfile suchen, für Ordner
(SearchRec.Attr and fadirectory) <> 0 nehmen

und für dateien:
FindFirst('*.*', 0, SearchRec)

oder wie

[Christian Seehase]

Moin Nailor,

immer nach faAnyFile suchen.

Bei Directories dann

Delphi-Quellcode:

if (srSearch.Attr and faDirectory) <> 0 then // Verzeichnis
// oder
if (srSearch.Attr and faDirectory) = faDirectory then // Verzeichnis

und bei Dateien

Delphi-Quellcode:

if (srSearch.Attr and faDirectory) = 0 then // Kein Verzeichnis
// oder
if (srSearch.Attr and faDirectory) <> faDirectory then // Kein Verzeichnis

Mit der Methode bin ich bislang gut gefahren.

Eine kleine Frage noch:
Warum benutzt Du eigentlich immer die Kombination aus SetCurrentDir und FindFirst mit Dateimaske?
Als ersten Parameter akzeptiert FindFirst auch einen kompletten Pfad.
Ich frage nur, weil ich das bisher noch nie so gesehen habe.

Eines noch zum +/or "Problem":
Ich sage nicht, dass es grundsätzlich nicht geht Flags mit + zu verknüpfen, nur kann immer der Fall eintreten, das die Verwendung von arithmetischen Operatoren zu Fehlern führen kann.
Da sich dies, ohne die genauen numerischen Werte zu kennen, aber nicht vorhersagen lässt, finde ich es einfach sinnvoller Flags nur mit logischen Operatoren zu bearbeiten. Dann braucht man sich nicht darum zu kümmern, ob das in dem speziellen Falle anders geht oder nicht.
Intern benutzt Borland übrigens auch or um die Flags zu Verknüpfen.

[nailor]

1. Weil ich mir noch keine Gedenken darüber gemacht habe, dass es natürlich auch reicht, den Pfad so weit wie nötig anzugeben und weil in der Hilfe halt steht, dass das aktuelle Verzeichnis durchsucht wird, daher SetCurrentDir. Ist aber doof. Hast Recht, weil das dann ja verstellt bleibt.

2. Flags mit arith. Ich bin halt nie auf die Idee gekommen, dass das Fehler geben könnte. genau wie bei
if boolean = true then

[nailor]

Noch eine Frage: Wie krieg ich den kompletten Pfad (mit oder ohne Dateiname angehängt)?

[Christian Seehase]

Moin Nailor,

den kompletten Pfad von was?

[nailor]

Von hier nach München
Von einer Datei natürlich...

[Christian Seehase]

Moin Nailor,

das war soweit schon klar, nur:

• Meinst Du jetzt wie eine Datei als Parameter übergeben wird?
• wie Du den Pfad über einen Dialog bekommst?
• wie Du den Pfad über DragNDrop bekommst?

Das nur mal so, was mir auf anhieb einfällt.

[nailor]

Das wenn man mit FindFirst sucht,
man aus dem
TSearchRec.Name
den kompletten Pfad der Datei, die gefunden wurde bekommt.

[Christian Seehase]

Moin Nailor,

ach so

( das war bloss für mich in Erinnerung an meine eigenen Anfänge mit FindFirst, das Problem hatte ich nämlich auch)

Gar nicht, den Pfad musst Du wissen, was ja auch keine Schwierigkeit sein dürfte, denn den gibst Du ja auf die eine oder andere Weise auch an, bevor Du FindFirst aufrufst.
SearchRec.Name gibt Dir nur den Namen eines im angegebenen Pfad gefundenen Elementes zurück (könnte ja auch ein Directory sein).