相关资料：
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 type
10 TForm1 = class(TForm)
11 Button1: TButton;
12 procedure Button1Click(Sender: TObject);
13 private
14 { Private declarations }
15 public
16 { Public declarations }
17 end;
18
19 var
20 Form1: TForm1;
21
22 implementation
23
24 {$R *.dfm}
25
26 procedure TForm1.Button1Click(Sender: TObject);
27 var
28 int1: Integer;
29 begin
30 try
31 int1 := StrToInt('A');
32 except
33 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;
请发表评论