Append(TextdateiVariable) wirft "E/A-Fehler 32"

[little-x]

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!

[marabu]

Hallo,

mit FileCreate() öffnest du die Datei auch gleichzeitig - und sperrst sie für nachfolgende Benutzung. Mache es besser so:

Delphi-Quellcode:

var
  tf: TextFile;
  fn: TFileName;
begin
  // ...
  AssignFile(tf, fn);
  if FileExists(fn)
    then Append(tf)
    else Rewrite(tf);
  // ...

Grüße vom marabu