Demo学习： CustomException

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;