？？？(0分)

蓝

蓝蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-10

• #1

var
I,j :Integer;
T :Integer;
begin
try
I :=2;
j :=0;

T :=i div j;
except
showmessage('cuowu');
end;
end;
运行程序时，怎么不做try 到end的过程？？

 

蓝

蓝蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-10

• #2

也就是在try到end之间的程序不运行，直接跳过？？？

 

G

gxw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #3

T :Integer 改为 T :real; 试试

 

L

liuguilg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #4

T :=i div j;哪有 j=0;
就象 a/b b是不能为0；

 

L

liuguilg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #5

兄弟怎么也得整2分呗

 

J

japhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #6

DELPHI自动判断
I :=2;
j :=0;
T :=i div j;
//如果在这里随便加一句对T的值的引用就不会这样的
if t<>0 then
showmessage('cuowu');
楼主要是看了编译时的提示就会明白的。
[Hint]Unit1.pas(121):Value assigned to 'I' never used
这些代码为无效代码，所以不执行。

 

蓝

蓝蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #7

我在做异常处理检测，应该在T:= i div j出发生异常才对啊

 

蓝

蓝蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-18

• #8

接受答案了.