Home » Tutorials » Datenspeicherung » Typisierte Dateien

Typisierte Dateien

Datei öffnen

Wenn wir unsere Anwendung starten (OnCreate-Ereignis), soll automatisch die Datei „adressen.dat“ geöffnet werden. Falls sie noch nicht existiert (beim ersten Start), wird sie neu angelegt. Gesucht wird die Datei im gleichen Verzeichnis, in dem auch die Anwendung liegt.

procedure TForm1.FormCreate(Sender: TObject);
var path: String;
begin
  path := ExtractFilePath(ParamStr(0));
  AssignFile(datei, path+'adressen.dat');
  if FileExists(path+'adressen.dat') then ReSet(datei)
  else ReWrite(datei);
end;

AssignFile stellt die Verbindung zwischen unserer Datei-Variablen und einem Dateinamen her. Dabei muss die Endung nicht „dat“ lauten; es kommt nur darauf an, dass die Datei auch tatsächlich das gleiche Format hat, wie wir die Variable „datei“ definiert haben, nämlich vom Typ „Adresse“.

Reset öffnet eine existierende Datei; falls sie nicht existiert, tritt ein Fehler auf. Rewrite legt eine neue Datei an. Existiert bereits eine gleichen Namens, wird diese überschrieben.
Bevor wir es vergessen, legen wir gleich ein OnClose-Ereignis an, damit die Datei bei Programmende auch wieder ordnungsgemäß geschlossen wird:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CloseFile(datei);
end;