【结帖】用自己的异常处理来代替系统的异常处理时屏蔽不掉系统异常**

rzport_yqq

用自己的异常处理来代替系统的异常处理时，
系统异常依旧弹出，再继续运行时才弹出自己的异常处理，这是为什么呢？
怎样屏蔽掉系统异常呢？

rzport_yqq

http://bbs.justep.com/forum.php? ... ;highlight=MyExProc
我依据这个写的，可是依旧弹出系统的异常

rzport_yqq

怎么没人处理哦~急用哦~在线等，谢谢

lixy

你要屏蔽什么异常？

rzport_yqq

business.System.SysUtils.StrToDateTime(ComboBox1.Text);  
截取转换字符串为日期型的异常
ComboBox1.Text中为2009-05-20 07：00：00 这种格式的数据

rzport_yqq

procedure TJSDLRCK.MyExProc(Sender: Business.System.TObject; E: Business.System.Exception);
begin
    if Business.System.StrUtils.AnsiContainsText(e.Message,'is not a valid date and time') then
    begin
         jsdialogs.ShowMsg('您输入的日期有误！','提示');
         //在这里处理你需要处理的异常。Xxx为你要截获的异常的信息。
         Edit1.Focused;
         exit;
    end;

  Raise E;  //对于不需要截获的异常照常抛出。

end;

lixy

用try except不能截获吗？

rzport_yqq

不行，我试过了，一样还是会弹出系统的异常

lixy

你是怎么写的？

rzport_yqq

先定义private
    {private declarations}
    TempProc: TExceptionEvent;
    Procedure MyExProc(Sender: Business.System.TObject; E: Business.System.Exception);

窗体运行时
procedure TJSDLRCK.BizFormCreate(Sender: TObject);
begin
     TempProc:=  Forms.Application.OnException ;  //记录下原来的异常处理程序
     Forms.Application.OnException:= MyExProc;   //将异常处理程序改为自己的。
end;
  
在查询按钮事件底下，转换日期business.System.SysUtils.StrToDateTime(ComboBox1.Text);

再就是截获事件
procedure TJSDLRCK.MyExProc(Sender: Business.System.TObject; E: Business.System.Exception);
begin
    if Business.System.StrUtils.AnsiContainsText(e.Message,'is not a valid date and time') then
    begin
         jsdialogs.ShowMsg('您输入的日期有误！','提示');
         //在这里处理你需要处理的异常。Xxx为你要截获的异常的信息。
         Edit1.Focused;
         exit;
    end;

  Raise E;  //对于不需要截获的异常照常抛出。

end;