CustomException
捕获程序发生的异常。
1. 抛出各种异常
procedure TMainForm.UniButton1Click(Sender: TObject); begin PByte(0)^:=0; end; procedure TMainForm.UniButton2Click(Sender: TObject); begin raise Exception.Create('Custom exception raised'); end; procedure TMainForm.UniButton3Click(Sender: TObject); begin TMainForm.Create(nil); end; procedure TMainForm.UniButton4Click(Sender: TObject); begin UniMainModule.ClientDataSet1.FieldByName('BugsBunny').AsString:='Carrot'; end;
2. 拦截并记录异常事件:
procedure TUniServerModule.UniGUIServerModuleException( Sender: TUniGUIMainModule; AException: Exception; var Handled: Boolean); begin if Sender<>nil then begin (sender as TUniMainModule).LogException(AException); Handled:=True; end; end;