Zeile an Ende von Textdatei anhängen

[buyden]

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??

[himitsu]

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.

[buyden]

UHPS

DBDDHKP!!

(Doof Bleibt Doof, Da Helfen Keine Pillen)

Dankeschön