append - rewrite file of record

#1
Hallo zusammen,

ich würde gerne eine Adressverwaltung schreiben, welche Adressen einlesen, ausgeben, die Adressliste sortieren usw. kann. Hierbei habe ich mich für die typisierte Datei File of record entschieden. Allerdings habe ich im Zusammenhang mit diesem Typ das Problem, dass ich nur rewrite und nicht append nutzen kann. Gibt es denn eine Alternative, sodass meine Datei nicht überschrieben wird?

Vielen Dank!

VG



Pascal:
program adressverwaltung1;
uses crt,sysutils;
type  TAdresse = record
        nachname, vorname, ort : string [50];
        PLZ : integer;
        strasse : string [100];
        end;
const Maximum = 1000;
var     Adresse: array[1..Maximum] of TAdresse;
        Anzahl: integer;
        datei: file of TAdresse;
        antwort: char;

procedure open;
begin
assign (Datei,'adressen.dat');
if fileexists ('adressen.dat') then reset (datei)
else rewrite (datei);
end;

procedure closedatei;
begin
close (datei);
end;

procedure eingabe;
var     Datei: file of TAdresse;
        Adresse: TAdresse;
begin
open;
writeln ('Bitte geben Sie den Nachnamen ein ');
readln (Adresse.Nachname);
closedatei;
end;

BEGIN
clrscr;
writeln ('Welche Aktion m”chten Sie ausfhren?');
writeln ('Adresse suchen (s), Adresse eingeben (e)');
writeln ('Adressliste sortieren (sort), Adressliste ausgeben (a)');
readln (antwort);
if (antwort = 'e') then
eingabe
else
writeln ('Auf Wiedersehen');
readkey
END.
 
Oben