Ordner nicht leer

[kagi3624]

Ist es gut so?

Code:

function TForm1.CheckIfFilesInPath(const Path: string): Boolean;
var
  MySearch: TSearchRec;
  FindResult: Integer;
begin
  result := false;
  FindResult:=FindFirst(Path+'\*.*', faAnyFile, MySearch);
  while (FindResult = 0) do
  begin
    if (MySearch.Name<>'.') and (MySearch.Name<>'..') and (MySearch.Attr <> faDirectory) then begin
      result := true;
      break;
    end;

    FindResult := FindNext(MySearch);
  end;
  FindClose(MySearch);
end;

@Andreas13
das konnte ich so nicht kompilieren, ich bekomme den Fehler

Code:

[Fehler] trash.pas(213): Undefinierter Bezeichner: 'SysUtils'

das habe ich bei den Uses aber angebunden. Vielleicht liegt es aber an meinem uralten Delphi 6

[Andreas13]

Kein Problem: Wahrscheinlich hat Delphi 6 auch noch kein WinAPI.Windows, so daß es dort (noch) keinen Konflikt geben kann.
Andreas

[DeddyH]

Anderer Vorschlag:

Delphi-Quellcode:

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

[kagi3624]

Hallo Deddyh! Könntest du bitte die Zeile hier erklären`?

Code:

if Rec.Attr and faDirectory = 0 then

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