如何捕捉错误信息????(50分)

H

hfjacklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #1

如何在try except中捕捉具体的出错信息并显示出来,而不是delphi赤裸裸的报错???
如:在错误时,我捕捉后提示"错误信息:xxxxxx"如此而已.^_^

 

T

t365

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #2

try
except
在这里可以判断是什么异常,
跟据不同的异常给出不同的提示信息
showmessage('自己的提示信息!');
end;

 

H

hfjacklee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #3

最主要的是如何捕捉错误信息？？？？

 

吉

吉祥鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #4

Application.OnException:=AppException;
Procedure TFrmMain.AppException(Sender:TObject;E:Exception);
Begin
Try
showmessage('错误信息:'+e.Message);
Except
End;
End;

 

P

pnljh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #5

try
except
on E: Exception do
e.Message就是你要的赤裸裸的错误信息
end;