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