Delphi-PRAXiS - Delphi Zeile an Ende von Textdatei anhängen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Zeile an Ende von Textdatei anhängen (https://www.delphipraxis.net/29393-zeile-ende-von-textdatei-anhaengen.html)

Zeile an Ende von Textdatei anhängen

Hallo erstmal,

ich hab ein kleines Problem beim Schreiben in eine Textdatei. Ich möchte in einer Textdatei einfach ans Ende eine Zeile anfügen.
Mit folgendem Code bekomme ich immer einen I/O Error103.

Delphi-Quellcode:

			procedure TForm1.Button6Click(Sender: TObject);

var datei:textfile;

begin

assignfile(datei, datamodule2.table4.fieldbyname('pfad').asstring);

writeln(datei,inttostr(datamodule2.table4.fieldbyname('techniker').asinteger)+','+

dbedit1.text+',, 3');

closefile(datei);

end;

Kann mir jemand erklären, wo mein Fehler liegt?? :wall:

Re: Zeile an Ende von Textdatei anhängen

Du mußt die Datei natürlich auch noch öffnen.
Mit assignfile weißt du "nur" einen Dateinamen zu.

Schau dir mal in der OH Reset Rewrite und Append an.

Re: Zeile an Ende von Textdatei anhängen

UHPS :oops:

DBDDHKP!!

(Doof Bleibt Doof, Da Helfen Keine Pillen)

Dankeschön :duck: