Fehler bei REWRITE

[Luckie]

Zitat von devnull:

@Luckie: Append öffnet eine Datei an letzter Stelle...

Delphi-Hilfe:

Beschreibung
Mit Append können Sie sicherstellen, dass eine Datei schreibgeschützt geöffnet und der Dateizeiger auf das Ende der Datei gesetzt wird. F ist eine Textdateivariable und muss zuvor mit AssignFile einer externen Datei zugeordnet werden. Ist die Datei mit dem angegebenen Namen nicht vorhanden, tritt ein Fehler auf. Wenn F bereits offen ist, wird sie geschlossen und anschließend erneut geöffnet. Die aktuelle Dateiposition wird dann auf das Dateiende gesetzt.

Das

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  datei2       : textfile;
  filename     : string;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'Eintrage.txt';
  assignfile(datei2, filename);
  closefile(datei2);
  append(datei2);
end;

Bringt bei mir:

Zitat:

103 File not open Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.

Ist ja auch logisch, du hast mit CloseFile ja die Dateivariable datei2 schon in den Müll geworfen, willst sie aber bei Append noch benutzen. Es kann also gar nicht gehen!