Ordner nicht leer

[DeddyH]

Damit wird geprüft, ob die Bitmaske der Dateiattribute das Flag faDirectory enthält. Wenn ja, ist es ein Verzeichnis.

[himitsu]

in Rec ist eine Datei (Verzeichniss-Attribut ist nicht gesetzt)

[kagi3624]

Also lese ich das so richtig? Rec.Attr ist ein Integer und nicht null und faDirectory ist aber gleich null, dann ist es ein Ordner? Also kann man generell die Konstanten der FindFirt Funktion mit = 0 abfragen?

[KodeZwerg]

Zitat von kagi3624:

Also lese ich das so richtig? Rec.Attr ist ein Integer und nicht null und faDirectory ist aber gleich null, dann ist es ein Ordner? Also kann man generell die Konstanten der FindFirt Funktion mit = 0 abfragen?

kurz und knapp, nein, weil .... ->

Zitat von DeddyH:

Damit wird geprüft, ob die Bitmaske der Dateiattribute das Flag faDirectory enthält. Wenn ja, ist es ein Verzeichnis.

einfach auf 0 prüfen ist der falsche weg.
funktionieren denn die beispiele nicht? was für probleme haben die beispiele?

[DeddyH]

Wieso ist das der falsche Weg? Exakt auf faDirectory zu prüfen wäre definitiv falsch, da auch andere Attribute enthalten sein können. Zur Erklärung: https://www.delphipraxis.net/95180-e...bitmasken.html

[kagi3624]

Zitat von KodeZwerg:

einfach auf 0 prüfen ist der falsche weg.
funktionieren denn die beispiele nicht? was für probleme haben die beispiele?

Ja doch. Das funktioniert wunderbar. Ich habe nur Probleme mit der Delphi Syntax bzw damit, dass etwas stimmt wenn es grade auf null gesetzt wurde.

[DeddyH]

In dem Moment, wo ein Unterverzeichnis z.B. das Archiv-Attribut gesetzt hat, funktioniert die exakte Prüfung nicht mehr, d.h. das Verzeichnis wird als Datei erkannt.

[KodeZwerg]

hehe, warste schneller als ich das wollte ich damit, ohne ausführlich zu werden, sagen.


//edit
vielleicht hilft dir das hier kagi3624 -> Vergleichsoperatoren
hat jetzt nicht direkt was mit bitmasken zu tun aber da las ich auch vorhin ne frage die der link vielleicht ausführlicher beantwortet, um hinter der logik von delphi ein wenig durchzuschauen.

[Andreas13]

Hallo Kagi3624,
darf ich Dir zwei exzellente Fachbücher zu Deinem Delphi 6 empfehlen?

Walter Doberenz und Thomas Kowalski:
1):
Borland Delphi 6. Grundlagen und Profiwissen
https://www.amazon.de/Borland-Delphi.../dp/3446217347
2):
Borland Delphi 6 Kochbuch
https://www.amazon.de/Borland-Delphi.../dp/3446217355

Dort findest Du eine sehr gute Einführung in Delphi 6, u. a. auch in das Thema "Bitweise Operationen": --> Band 2: "Einen Wert auf Bit-Ebene manipulieren"
Gruß, Andreas

[kagi3624]

Ok, um zu testen, ob ich es verstanden habe, habe ich die Suchfunktion abgewandelt um alle Dateinamen ohne die Unterordner in ein Memofeld zu schreibeiben.

Code:

function TForm1.DirContainsFiles(const Dirname: string): Boolean;
var
  Rec: TSearchRec;
  SearchPattern: string;
begin
  Memo3.Text := '';
  Result := false;
  SearchPattern := IncludeTrailingPathDelimiter(Dirname) + '*.*';
  if FindFirst(SearchPattern, faAnyFile, Rec) = 0 then
    try
      repeat
        if Rec.Attr and faDirectory = 0 then begin
          Result := true;
          Memo3.Lines.Add(Rec.Name);
        end;
      until (FindNext(Rec) <> 0);
    finally
      SysUtils.FindClose(Rec);
    end;
end;

Es funktioniert auch. Ich frage mich bloß, wieso man in diesem Fall nicht nach den '.' und '..' suchen muss.