如何方便的查找Delphi函数、方法可能抛出的异常类型？(50分)

K

Kelvin_zillion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-16

• #1

如题

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-16

• #2

经典，期待高手作答！

 

Y

yangxiao_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-17

• #3

up

 

T

tswhoney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #4

我想是将raise语句替换成application.messagebox,显示错误信息。

 

D

delphiandoracle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #5

期待高手

 

狄

狄克

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #6

关注

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #7

appevent

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #8

procedure TFrm_main.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
var
str, strcaption: string;
begin
begin
strcaption := '警告';

str := e.ClassName;
if str = 'EConvertError' then
strcaption := strcaption + ' - ÀàÐÍת»¯´íÎó';
if str = 'EDivByZero' then
strcaption := strcaption + ' - ±»Áã³ý';

application.MessageBox(pchar(e.Message), pchar(strcaption), mb_ok);
end;

end;

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #9

if str = 'EConvertError' then
strcaption := strcaption + ' -类型转换出错 ';
if str = 'EDivByZero' then
strcaption := strcaption + ' - 除0';

 

K

Kelvin_zillion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #10

多人接受答案了。