Quellcode klappt nicht

[Alexander Roth]

Wieso klappt dieser doch sehr einfache Quelltext nicht?

Delphi-Quellcode:

procedure intxtschreiben(pfad,text:string;einmalig:boolean);
var txt:textfile;
begin
assignfile(txt,pfad);
if fileexists(pfad) then reset(txt) else rewrite(txt);
writeln(txt,inttostr(lauf));
closefile(txt);
end;

Compilieren tut er das gut, aber beim ausführer maktiert er die Zeile mit writeln und meldet:
---------------------------
Debugger Exception Notification
---------------------------
Project Corioliskraft.exe raised exception class EInOutError with message 'I/O error 105'. Process stopped. Use Step or Run to continue.
---------------------------

Hinweis lauf eristiert und die Variablen wurden alle ordnungsgemäß zugewiesen.

[toms]

Hallo!

Muesste so funktionieren:

Delphi-Quellcode:

procedure intxtschreiben(pfad, Text: string);
var 
  txt: TextFile;
begin
  AssignFile(txt, pfad);
  if fileexists(pfad) then
    Append(txt)
  else
    Rewrite(txt);
  Writeln(txt, IntToStr(123));
  Closefile(txt);
end;

[Alexander Roth]

Wow. Es klappt.
Wo ist denn der Unterschied zwischen reset und append?

[Sharky]

Zitat von Alexander Roth:

Wow. Es klappt.
Wo ist denn der Unterschied zwischen reset und append?

Zitat:

Append
Öffnet eine vorhandene Textdatei zum Anhängen von Daten.

Reset
Öffnet eine vorhandene Datei

[Alexander Roth]

Danke.
Klappt alles wunderbar.