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!