ReWrite() findet kein File?

[TForm1]

Hallo zusammen,
ich bin endlich mal dazu gekommen, mir Lazarus 1.2.2 herunter zuladen (ich hatte vorher einen internen Compilerfehler, der ist jetzt behoben), allerdings ist seit dem ein neues Problem aufgetreten, was ich bisher nicht hatte.

Delphi-Quellcode:

Path := ExtractFilePath(ParamStr(0));
AssignFile(FFile, Path+'MyFile.dat');
if FileExists(Path+'MyFile.dat') then ReSet(FFile)
else ReWrite(FFile);

Beim ReWrite kommt die Exception: File not found. Bislang hat der obige Code bei mir immer funktioniert.
Weiß einer, woran das liegen könnte?

[Bernhard Geyer]

Nach der Doku von Lazarus zu Tippen fehlt bei deinem Code ein Pfadtrenner (\ bzw /) zwischen Pfad und Dateiname, da ExtractFilePath den letzten Pfadtrenner nicht mitliefert.

[TForm1]

Auch mit Pfadtrennern funktioniert es nicht.
Das Problem kommt ja auch erst beim ReWrite, ansonsten hätte es ja schon vorher eine Exception gegeben, oder?

[Sir Rufo]

AssignFile wirft keine Exception.

Hast du schon mal so komische Sachen versucht, wie den Dateinamen einer Variablen zuzuweisen, diese Variable im weiteren Code zu benutzen und mit dem Debugger dir den Wert der Variablen nach der Zuweisung angeschaut?

Wäre mein erster Gedanke ...

[Bjoerk]

Daß Rewrite eine Exception File not found wirft kann ich nicht recht glauben?

[p80286]

Jo da liegst Du richtig

Delphi-Quellcode:

  assignfile(ff,'c:\tempbubu');
  rewrite(ff);
  writeln(ff,'erstezeile');
  closefile(ff);

Keine Fehlermeldung und keine Datei!

Gruß
K-H

[TForm1]

Der Pfad, der mit ExtractFilePath(ParamStr(0)), erstellt wird, ist richtig (übrigens nimmt er sehr wohl einen Pfadtrenner am Ende).
Die Exception ist übrigens eine vom Typ EInOutError. Grundsätzlich müsste es also funktionieren.