Forum: Programmieren allgemein
by DeddyH,
24. Nov 2009
Das erscheint mir doppelt gemoppelt. Wie wäre es denn so (ungetestet)?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;
Forum: Programmieren allgemein
by DeddyH,
24. Nov 2009
Ich weiß nicht, ob das so funktioniert, aber mein erster Gedanke wäre: mit FindFirst suchen und bei Treffer SearchRec.Name mit dem gesuchten Namen vergleichen.