speichern ohne komplett zu überschreiben

[Ralle00]

Hallo,
ich lerne Delphi in der Schule und habe ein Problem:
Ich habe eine ListBox in die ich verschiedene Angaben eingeben kann und kann die dann speichern.Wenn ich das Programm dann aber neu starte und unter dem selben Dateinamen etwas speicher wird der alte Inhalt der Datei überschrieben.
Ich denke der Fehler liegt bei 'Reset(f)',weil da der Dateizeiger auf 0 gestellt wird(so wie ich das verstanden hab).Gibt es einen Befehl,der den Dateizeiger an die jeweils letzte Stelle der Datei rückt,bevor gespeichert wird,um den Rest net zu überschrieben?
Wäre für Hilfe dankbar.

procedure TForm1.BSpeichernClick(Sender: TObject);
var f : File of TKollekte ;
k : Integer ;
Name : String ;
begin
Name := ESpeichern.Text ;
ASSIGNFILE(f,'C:\' + Name ) ;
{$I-}
Reset(f) ;
{$I+}
if IOResult <> 0 then
rewrite(f) ;
for k := 1 to 30 do
Write(f,AListe[k])
end;

[mkinzler]

Eher am Rewrite(f); Versuchs mal mit Append(f);

[Ralle00]

Ne,"incompatible types" heißt es.Trotzdem danke

[mkinzler]

Zitat von Ralle00:

Ne,"incompatible types" heißt es.Trotzdem danke

Sorry du benutzt ja eine typisierte Datei Append funktioniert leider nur bei Textfiles.
So bleibt dir wohl nix anderes übrig, als die datei mit Reset zu öffnen ( nicht Rewrite; löscht alte Datei) und dann mauell zum Ende zu springen.

[3_of_8]

Dazu siehe die Befehle Seek(f); und FileSize(f);

[Ralle00]

Vielen Dank,denke dass mich das weiterbringt.