Fehler bei REWRITE

[Sharky]

Zitat von Chrissi91:

...Ich habe meinen Code durch deinen ersetzt und die Fehlermeldung kam trotzdem :'(

Verstehe ich jetzt nicht.
Mit dieser (verkürzten) Variante habe ich auch kein Problem:

Delphi-Quellcode:

procedure TForm1.btn_TestClick(Sender: TObject);
var
  datei2: textfile;
  filename : string;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';
  assignfile(datei2,filename);
  if not fileexists(filename) then
  begin
    rewrite(datei2);
  end
  else
  begin
    reset(datei2);
  end;
  append(datei2);
  writeln(datei2, edit1.Text + ' ' + edit2.Text);
  closefile(datei2);
end;