Hallo,
folgender Code:
Delphi-Quellcode:
Procedure datei_schreiben;
var dat: TextFile;
pfad: string;
begin
pfad:= 'c:\tmp\meinedatei.txt';
if not FileExists(pfad) then FileCreate(pfad);
AssignFile(dat, pfad);
Append(dat); //Hier kommt der Fehler!
writeln(dat, 'mein Text');
CloseFile(dat);
end;
Die Datei wird erstellt (wie ich sehen kann). Auch das Assign ruft keinen Fehler hervor.
Seltsamerweise kommt der Fehler nicht immer. Wenn er kommt, mache ich immer dasselbe:
-> Delphi schließen
-> Datei löschen
-> Delphi öffnen
-> erneut starten.
Beim 4. oder 5. Versuch klappt es dann. Kennt jemand das Phänomen?
Viele Grüße!