Entwickler-Ecke :: Thema anzeigen - ...einen FileExists-Ersatz?

Burgpflanze - Di 25.03.03 14:59
Titel: ...einen FileExists-Ersatz?

Ich habe festgestellt, das die FileExists-Funktion nicht korrekt arbeitet - sie liefert zum beispiel auch dann True, wenn der Parameter auf ein Verzeichnis zeigt :?

Also habe ich mir eine kleine Funktion geschrieben, die es richtig macht:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

uses
  SysUtils;

function ExistsFile (const FileName: String): Boolean;
begin
  Result := not DirectoryExists (AFileName);
  if Result then Result := FileExists (AFileName);
end;

Unter SuSE 8.0 und Kylix3 Enterprise getestet.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!