FileExists aber Casesensitive

[DeddyH]

Das erscheint mir doppelt gemoppelt. Wie wäre es denn so (ungetestet)?

Delphi-Quellcode:

function FileExistsCaseSensitive(const Filename: TFilename): Boolean;
var SearchRec: TSearchRec;
begin
  Result := FindFirst(Filename, faAnyFile, SearchRec) = 0;
  if Result then
    try
      Result := AnsiCompareStr(Filename, SearchRec.Name) = 0;
    finally
      SysUtils.FindClose(SearchRec);
    end;
end;

[edit] Trotz fehlendem roten Kasten dieselbe Redewendung [/edit]