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