Rekursive Dateisuche lässt Unterverzeichnisse aus

[DeddyH]

Zitat:

if (Rec.Attr in [faDirectory])

Müsste das nicht so lauten?
if (Rec.Attr and faDirectory = faDirectory)

[Sir Rufo]

Zitat von DeddyH:

Zitat:

if (Rec.Attr in [faDirectory])

Müsste das nicht so lauten?
if (Rec.Attr and faDirectory = faDirectory)

oder einfach andersherum if ( faDirectory in Rec.Attr ) sollte auch gehen

Was sagt die Doku zu TSearchRec? Nö, geht doch nicht, ist nämlich kein Set ... sondern nur ein Integer

[DeddyH]

Japp, nur so wie ursprünglich klappt es eben nicht, wenn das Verzeichnis noch weitere Attribute hat.

[Ykcim]

Hallo,

erst mal vielen Dank für die schnellen Antworten!!!

if (Rec.Attr and faDirectory = faDirectory) Ich habe es ausprobiert, aber leider kein Erfolg.
faDirector=16
Rec.Attr=48 Ich weiß beide Werte leider nicht zu interpretieren.

if ( faDirectory in Rec.Attr ) hier kommt die Fehlermeldung
E2015 Operator ist auf diesen Operandentyp nicht anwendbar Gruß Patrick

[DeddyH]

Würde aber passen.

Code:

00110000 //Rec.Attr
00010000 //faDirectory
========
00010000 //faDirectory

[Sir Rufo]

Das Problem sind die fehlenden Klammern

[Ykcim]

@Sir Rufo
Jepp, die Fehlermeldung ist weg, aber ich das Ergebnis ist das gleiche - es wird nur die Datei in dem Hauptverzeichnis angezeigt...

Ich weiß nicht ob es wichtig ist, aber der Pfad sieht so aus:
\\172.30.44.120\Zeichnungen\
Und dann gibt es halt Unterverzeichnisse
\\172.30.44.120\Zeichnungen\A\
\\172.30.44.120\Zeichnungen\Neu\

Ich versuche gerade den Gedanken vom schönen Günter umzusetzen...

Vielen Dank
Patrick

[Sir Rufo]

Ähm meine Aussage bezog sich auf den Code-Schnipsel von DeddyH. Meinen Code-Schnipsel habe ich in meinem Beitrag schon für ungültig erklärt.

Zitat von Sir Rufo:

Zitat von DeddyH:

Zitat:

if (Rec.Attr in [faDirectory])

Müsste das nicht so lauten?
if (Rec.Attr and faDirectory = faDirectory)

oder einfach andersherum if ( faDirectory in Rec.Attr ) sollte auch gehen

Was sagt die Doku zu TSearchRec? Nö, geht doch nicht, ist nämlich kein Set ... sondern nur ein Integer

So sollte es funktionieren if ( ( Rec.Attr and faDirectory ) = faDirectory)

[himitsu]

Zitat von Sir Rufo:

Das Problem sind die fehlenden Klammern

Bei was?

Wenn hier if (Rec.Attr and faDirectory = faDirectory) :
AND wir immer vor = aufgelöst, also passt es.

Da aber alle Dateiattribute nur aus einem Bit bestehen, kann man das noch kürzen
if (Rec.Attr and faDirectory <> 0)

Das mit dem IN klappt nicht, da Attr ein Integer und kein Set ist, außerdem sind die fa-Konstanten Bit-Masken und keine Indize.
(gut, man könnte den Integer in ein set of 0..31 , aber dann ist noch das Problem mit den Konstanten, also wenn dann lieber direkt in ein TAttributeSet casten und als Property in TSearchRec rein)

[DeddyH]

Zitat von himitsu:

Wenn hier if (Rec.Attr and faDirectory = faDirectory) :
AND wir immer vor = aufgelöst, also passt es.

Muss ja so sein, denn dies
if (Rec.Attr and (faDirectory = faDirectory)) wird gar nicht kompiliert, dazu müsste man schon explizit Rec.Attr nach Boolean casten, dann ist man aber auch selbst Schuld, wenn es nicht stimmt.

Zitat von himitsu:

Da aber alle Dateiattribute nur aus einem Bit bestehen, kann man das noch kürzen
if (Rec.Attr and faDirectory <> 0)

Kann man, hat aber keinen Mehrwert. Wozu soll man sich Gedanken machen (oder nachsehen), ob wirklich alle Attribute 2er-Potenzen sind? Da bleib ich lieber bei der gezeigten Schreibweise, das passt immer, selbst wenn irgendwann mal ein mehrbittiges Attribut hinzukommen sollte.