Hallo und frohe Pfingsten!
Ich hab hier mal folgenden noch fehlerhaften Code:
Delphi-Quellcode:
procedure TForm1.BtnStoreClick(Sender: TObject);
var JobDone: Boolean;
begin
JobDone:= false;
Try
Query1.Post ;
except
on EDatabaseError do
Messagebox(0, 'Feld Genre darf nicht leer sein!', 'Warnung',16);
End;
SetButtons(1);
activatePostEdit;
end;
Es soll so sein, dass SetButtons(1) und activatePostEdit erst ausgeführt werden, wenn man in das Feld 'Genre' auch wirklich etwas eingegeben hat(und damit die
Exception nicht mehr ausgelöst wird).
Wie könnte ich das am besten bewerkstelligen?
Gruß
Gambit
P.S Das Feld Genre ist in der Paradoxtabelle mit 'Eingabe erforderlich' gekennzeichnet