DBR Delphi-Ecke

// Wenn das Programm auf eine geöffnete Datenbak zugreift und der Benutzer hat
// Änderungen vorgenommen ohne diese zu speichern, wird mit dem folgenden Code
// daran erinnert.

// Getestet mit D4 unter WinME

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  if (table1.state = dsedit) or (table1.state = dsinsert) then 
    if MessageDlg('Wollen Sie die letzte Änderung speichern?', mtconfirmation, 
      [mbYes, mbNo], 0) = mryes then table1.post; 
  table1.close; 
end;