Fehler bei REWRITE

[Sharky]

Hai Chrissi91,

ich habe deinen Code mal so formatiert das man die IF-ELSE die zusammen gehören auch erkennen kann
Was ich nicht verstehe: Was möchtest Du denn machen? Wenn etwas in der Datei steht möchtest Du sie erzeugen und dann etwas rein schreiben. Wenn aber schon etwas in der Datei steht möchtest Du noch etwas anhängen?

Delphi-Quellcode:

procedure TForm1.btn_TestClick(Sender: TObject);
var
  datei2: textfile;
  hilf: string;
begin
  if fileexists('Eintrage.txt') then
  begin
    assignfile(datei2, 'Eintrage.txt');
    reset(datei2);
    readln(datei2, hilf);
    if hilf <> '' then
    begin
      reset(datei2);
      append(datei2);
      writeln(datei2, edit1.Text + ' ' + edit2.Text);
    end
    else
    begin
      rewrite(datei2);// <-- Hier Fehlermeldung
      writeln(datei2, edit1.Text + ' ' + edit2.Text);
    end;
    closefile(datei2);
  end
  else
  begin
    assignfile(datei2, 'Eintrage.txt');
    rewrite(datei2);
    writeln(datei2, edit1.Text + ' ' + edit2.Text);
    closefile(datei2);
  end;
end;

Darum mag ich keine end-else in einer Zeile *g*