Wie ist der Programmierstil "professionell"

[Bjoerk]

Die Extravariable ist wohl eher Geschmackssache, aber Exit verwende ich persönlich nur nur, wenn es gar nicht anders geht, dafür aber öfter mal ein try .. finally.

Delphi-Quellcode:

   dmXXX.qGETFertigteileeingang.ParamByName('AZID').AsInteger := dmXXX.AZQ.fieldbyname('AZ.ID').asinteger;
   dmXXX.qGETFertigteileeingang.Open;
   try
     if (dmXXX.qGETFertigteileeingang.FieldByName('Anzahl').AsInteger > 0) then
       MessageDlg(' .. ', mtError, [mbOK], 0)
     else
     begin

     end;
   finally
     dmXXX.qGETFertigteileeingang.close;
   end;