delphi有没有象VB那样，在过程开头on error，然后就可以捕捉到此后所有错误的办法？

Question

据我所知是没有的
只能用
try  except 
and
try finally

Answer 1

当然有，例如：
try  X := Y/Z;
except
  on EZeroDivide do HandleZeroDivide;
end;

Answer 2

有啊比VB还好呢：try
  //正常语句；
except
  //错误处理语句； 
end;如果在 //正常语句 中有错误的话，程序就会生动跳到 //错误处理语句  来执行

Answer 3

procedure TMainForm.FormCreate(Sender: TObject);
begin
  GlobalExHandler:=TGlobalExHandler.Create;
  Application.OnException := GlobalExHandler.HandlerProc;end;procedure TGlobalExHandler.HandlerProc(Sender: TObject; EInstance: Exception);
begin
  if (EInstance is EDBEngineError) then
  begin
    case (EInstance as EDBEngineError).Errors[0].Errorcode of
      9729:
       ...
    else
      ...
  end
  else
   ...
end;