...einen FileExists-Ersatz?

Burgpflanze · Beiträge: 67 Windows2000 Prof. SP4 Delphi7 Enterprise

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:

markieren

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme