Hallo zusammen,
ich möchte eine Fehlerbehandlung in meine Programe einbauen die folgendermaßen aussieht:
Delphi-Quellcode:
procedure TFRM_Main.But_SpeichernClick(Sender: TObject);
begin
try
DM_Buecher.ADS_Buecher.Post;
DM_Buecher.ADS_Buecher.Edit;
setButtons(1)
except
DM_Buecher.ADS_Buecher.Cancel;
DM_Buecher.ADS_Buecher.Edit;
setButtons(1);
MessageDlg('Es wurden nicht alle Felder ausgefüllt!',MtWarning,[mbOK],0)
end;
end;
Allerdings wird im dem Fall das ein Feld das benötigt wird nicht ausgefüllt ist trotzdem ein neuer leerer Eintrag vorgenommen bzw. eine ID wird für den Versuch benutzt.
Kann mir jemand helfen wie ich die Fehlerbehandlung programmiere ohne das ein leerer Eintrag vorgenommen wird.
Gruß
Flash