Frage zu Try Except

[sakura]

Eine Möglichkeit wäre folgende Änderung:

Code:

procedure TForm1.BtnStoreClick(Sender: TObject);
var JobDone: Boolean;

begin
  JobDone:= false;

  Try
    Query1.Post ;
  except
    on EDatabaseError do
    [color=#f60000]begin[/color]
     Messagebox(0, 'Feld Genre darf nicht leer sein!', 'Warnung',16);
     [color=#f60000]Abort;
    end;[/color]
  End;

  SetButtons(1);
  activatePostEdit;
end;

Abort löst eine "stille" Exception aus, so daß keine weitere Fehlermeldung angezeigt wird, verhält sich ansonsten aber wie eine normale Exception -> Abbruch der Codefolge.

......