folgendes würde ich abwandeln von:
Delphi-Quellcode:
// Prüft ob ein Verzeichnis ODER eine Datei existiert
function FileOrDirExists(Filename:TFilename):Boolean;
begin
Result:=(DirectoryExists(Filename) or Fileexists(Filename));
end;
nach
Delphi-Quellcode:
function FileOrDirExists(Filename:TFilename):Boolean;
var lSearchRec: TSearchRec;
begin
if FindFirst(AFilename, faAnyFile, lSearchRec) = 0 then
begin
FindClose(lSearchRec);
result := True;
end
else
result := False;
end;
Grund: FileExists und DirectoryExists machen nichts anderes + das Prüfen ob es ein Verzeichnis oder eine Datei ist. Du rufst sozusagen 2 mal das gleiche auf.