Frage zu Try Except

[MrSpock]

Hallo Gambit,

am besten mit einer repeat until Schleife.

Delphi-Quellcode:

 
fertig := false;
repeat  
  Try
    Query1.Post ;
    fertig := true;
  except
    on EDatabaseError do
     Messagebox(0, 'Feld Genre darf nicht leer sein!', 'Warnung',16);
  End;
until fertig;

Aber Achtung, diese Schleife wird nur durch ein erfolreiches "Post" verlassen. Willst du das wirklich?