Ordner nicht leer

[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.

[DeddyH]

Weil '.' für das aktuelle und '..' für das übergeordnete Verzeichnis steht, es sind also Verzeichnisse. Daher ist das Flag gesetzt und der Vergleich ergibt nicht 0, sondern faDirectory. Hast Du mein Tutorial schon gelesen, das ich weiter oben verlinkt hatte?

[himitsu]

Jemand könnte für die Attribute mal auf die blöde Idee kommen das in ein SET zu ändern, dann kann man schön ein IN benutzen.

Gut, dann kompilieren viele Codes nicht mehr,
aber man kann sich auch gern einen ClassOperator für diesen Vergleich erstellen, damit man bei diesem Integer auch das IN benutzen kann.

if faDirectory in Rec.Attr then begin