Delphi Zeile an Ende von Textdatei anhängen

Thema durchsuchen

Ansicht

Themen-Optionen

Zeile an Ende von Textdatei anhängen

Ein Thema von buyden · begonnen am 8. Sep 2004 · letzter Beitrag vom 8. Sep 2004

Vorheriger Beitrag

Nächster Beitrag

buyden

Registriert seit: 10. Apr 2003
Ort: Schneeberg
228 Beiträge

Delphi 7 Enterprise

Zeile an Ende von Textdatei anhängen

8. Sep 2004, 17:13

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.

markieren

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;