Delphi's exception get error message

Related information:

Http://www.cnblogs.com/hackpig/archive/2010/02/15/1668547.html

Instance code:

1 UnitUnit1;2 3 Interface4 5 uses6 Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,7 Dialogs, Stdctrls;8 9 typeTenTForm1 =class(Tform) One Button1:tbutton; A     procedureButton1Click (sender:tobject); -   Private -     {Private Declarations} the    Public -     {Public Declarations} -   End; -  + var - Form1:tform1; +  A Implementation at  - {$R *.DFM} -  - procedureTform1.button1click (sender:tobject); - var - Int1:integer; in begin -   Try toInt1: = Strtoint ('A'); +   except - ShowMessage (Exception (exceptobject). Message); the   End; * End; $ Panax Notoginseng End.

Ps:

try
DataModule1.PHBADOQuery2.ExecSQL;
except
on E:exception do
begin
ShowMessage (e.message);
end;

Try
Int1: = Strtoint (' A ');
Except
ShowMessage (Exception (exceptobject). Message);
End

Try
Except
End

Try
Finally
End

Delphi's exception get error message