delphi tyr except截获错误异常类名并替换例子

procedure TForm1.Button1Click(Sender: TObject);

begin

  try

   adoquery1.Post;

  except

   //showmessage( '有重复数值或者空白行或其它错误，请检查！');

   //adoquery1.Cancel;

    on E:exception do   //这里返回e.mesage系统自己提示信息,下面也可替换掉

     begin

     e.Message:='替换掉系统提示信息';

     showmessage('异常是:'+E.classname+#10+'异常的MESAGE是：'+E.Message);

     //  E.classname获得类名为'EDatabaseError'

      if e.classname='EDatabaseError' then

         showmessage('想写什么就写什么信息');

      end;

  end;

end;