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:

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 Append.