So ähnlich sieht die Funktion bei Borland aus:
Delphi-Quellcode:
function fileexists(
const szFilename:
string): boolean;
var
Handle : THandle;
FindData : TWin32FindData;
begin
Handle := FindFirstFile(pchar(szFilename),FindData);
Result := (
Handle <> INVALID_HANDLE_VALUE);
if(Result)
then Windows.FindClose(
Handle);
end;
Funktioniert auch für Ordner.
