Kleine Datenbank speichern unter Verwendung von Zeigern

[omata]

Versuch es mal so...

Delphi-Quellcode:

procedure TForm1.ButtonSpeichernClick(Sender: TObject); //Vokabeldatenbank speichern
begin
  Assignfile(f, Datenpfad);
  try
    rewrite(f);
    if Kontrolle then
    begin
      while z <> nil do
      begin
        write(f, z^.Inhalt);
        z:=z^.naechster;
      end;
    end;
    showmessage('Vokabel-Verzeichnis erfolgreich gespeichert'); //Erfolgsmeldung ausgeben
  finally
    closefile(f);
  end;
end;