Zitat von
MathiasSimmack:
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.
Hi Mathias,
nicht ganz! Die Funktion von Borland prüft, ob FileAge(FileName) <> -1 ist.
Ich nehme aber an, dass das (bei Dateien zumindest) keinen Unterschied macht.
mfG
mirage228