FileExists funktioniert nicht richtig

[Daniel B]

Also, ich habs mal schnell probiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
//  s := ExtractFilepath(ParamStr(0)) + '_appdata' + '\' + 'Watch.ini';
  s := 'D:\Downloads\_appdata\Watch.ini';
  if not FileExists(s) then
  begin
    MessageBox(Handle, 'muh', 'mäh', MB_ICONSTOP);
    Exit;
  end
  else
    ShowMessage('file da');
end;

Wenn die Datei da ist, kommt die ShowMessage, wenn ich die Datei lösche, dann kommt die MessageBox, es läuft also wie es soll. Was mir aufgefallen ist, das Icon der Ini, das hat so ein kleines !, kann es sein das dir da was an Rechten fehlt und/oder die Datei gar nicht gesehen werden will?

@Catbytes, hat er ja grad mit D::\Downloads\_appdata\Watch.ini

[Luckie]

Bitte sofort alles vergessen. Ihr habt nichts gesehen. Ihr habt nichts gelesen. Ich ziehe jetzt meine Sonnenbrille auf und ihr öffnet mal bitte alle den Anhang hier. Danke.

Es funktioniert alles so wie es soll. Die fehlermeldung kommt an einer anderen Stelle und dort ist sie richtig. Mein Programm arbeitet mit einem anderen zusammen und der Pfad wird in der Ini angegeben, da das programm auf meinem Rechner nicht existiert, liefert FileExists natürlcih korrekterweise False zurück.

@Daniel B: Das ist nur das Icon vom Versionskontrollsystem.

[shmia]

Schau mal in:
http://www.delphipraxis.net/internal...ct.php?t=91547
Dort findet sich die Erklärung, weshalb FileExists manchmal False liefert, obwohl die Datei vorhanden ist.
PS: Na gut, war nicht die Ursache deines Problems. Aber trotzdem ist FileExists() nicht fehlerfrei.

[Luckie]

Ich benutze an der Arbeit BDS 2006, also die von dir implementierte Version von FileExists. Beim Debuggen hab eich auch den Aufruf von getFileAttributs gesehen.