access violation beim beenden

[Nicodius]

servus

onclose :

Delphi-Quellcode:

  if saved = false then
    if Application.MessageBox(
        'Datei wurde noch nicht gespeichert. Wirklich beenden?', 'Fehler!', MB_YesNo) = IDYes then close else
        Speichern1Click(Sender)
  else close;

speichern1 :

Delphi-Quellcode:

var FaDatei: file of Talles;
begin
  if SaveDialog1.Execute then // Dialog zum Speichern anzeigen
  begin
    AssignFile(FaDatei, SaveDialog1.FileName);
    Rewrite(FaDatei);  // Ausgabedatei öffnen
    Write(FaDatei, Alles);
    CloseFile(FaDatei);
  end;
  saved := true;

danke für deine zeit

nico