Problem beim Text in Datei schreiben

**klose010**

Mein Problem ist, wie die Überschrift schon sagt, dass ich ein Problem beim schreiben von Text in eine Datei habe. Und zwar habe ich diesen Code:

markieren

Delphi-Quellcode:

			procedure TForm2.Button1Click(Sender: TObject);

var datei: textfile;

begin

    assignfile(datei,'woerter.txt');

    rewrite(datei);

    writeln(datei,edit1.text);

    closefile(datei);

end;

Mein Problem dabei ist, dass wenn ich jetzt etwas in die Datei schreibe, es immer überschrieben wird, es steht also immer nur das zu letzt geschriebene in der Datei. Ich vermute es liegt am rewrite, aber wenn ich das weg lasse, kommt ein Error. Wie kann ich es so ändern, das eine Zeile zur Datei hinzugefügt wird.

**DeddyH**

Statt Rewrite Append nehmen (oder gleich auf TStringlist umsteigen).

**klose010**

Danke für die schnelle Antwort, funktioniert perfekt.

**turboPASCAL**

Bedenke das du aber zum Erstellen einer Datei rewrite() nutzen musst.
Append() hängt den Text nur an existierende Dateien an.

Verwende doch ein Delphi-Referenz durchsuchen

Append.

Problem beim Text in Datei schreiben

Problem beim Text in Datei schreiben

Re: Problem beim Text in Datei schreiben

Re: Problem beim Text in Datei schreiben

Re: Problem beim Text in Datei schreiben

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#2 Re: Problem beim Text in Datei schreiben 2. Sep 2009, 16:32 Statt Rewrite Append nehmen (oder gleich auf TStringlist umsteigen). Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

klose010 Registriert seit: 8. Aug 2009 20 Beiträge Delphi 2005 Personal	#3 Re: Problem beim Text in Datei schreiben 2. Sep 2009, 16:33 Danke für die schnelle Antwort, funktioniert perfekt.
	Zitat

turboPASCAL Registriert seit: 8. Mai 2005 Ort: Sondershausen 4.274 Beiträge Delphi 6 Personal	#4 Re: Problem beim Text in Datei schreiben 2. Sep 2009, 18:37 Bedenke das du aber zum Erstellen einer Datei rewrite() nutzen musst. Append() hängt den Text nur an existierende Dateien an. Verwende doch ein Append. Matti Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
	Zitat