delphi tyr except에서 잘못된 클래스 이름을 캡처하고 예를 바꿉니다

1631 단어 delphi
 
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;

좋은 웹페이지 즐겨찾기