首页 > 代码库 > Delphi之Exception获得错误信息
Delphi之Exception获得错误信息
相关资料：
http://www.cnblogs.com/hackpig/archive/2010/02/15/1668547.html
实例代码：
1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type10 TForm1 = class(TForm)11 Button1: TButton;12 procedure Button1Click(Sender: TObject);13 private14 { Private declarations }15 public16 { Public declarations }17 end;18 19 var20 Form1: TForm1;21 22 implementation23 24 {$R *.dfm}25 26 procedure TForm1.Button1Click(Sender: TObject);27 var28 int1: Integer;29 begin30 try31 int1 := StrToInt(‘A‘);32 except33 ShowMessage(Exception(ExceptObject).Message);34 end;35 end;36 37 end.
PS：
try
DataModule1.PHBADOQuery2.ExecSQL ;
except
on e:exception do
begin
ShowMessage(e.Message);
end;
end;
try
int1 := StrToInt(‘A‘);
except
ShowMessage(Exception(ExceptObject).Message);
end;
try
except
end;
try
finally
end;
Delphi之Exception获得错误信息
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。