这段代码有什么问题(50分)

爱

爱如泣血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #1

初学，望赐教。
********************************************
procedure TForm1.Button1Click(Sender:Tobjedt);
var
i,x,y:Integer;
begin
x:=1;
y:=0;
try
i:=x/y;
except
ShowMessage('Can''t devide by zero!');
end;
end;
*****************************************************************
这里编译出错i:=x/y;
如果改为i:=(x)div;
则又没有意义。不知错在什么地方？望指点。

 

S

sjm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #2

零作了除数。

 

爱

爱如泣血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #3

就是故意用零做除数抛出异常呀。

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #4

整性数相除i:=x/y不行的，必须i:=x div y。为什么没有意义？你是什么意思？

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #5

兄弟
div是用在整数的
/是用在extended;
你将
i,x,y:Integer;
改为
i,x,y:extended;
就行了

 

S

sjm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #6

var
i:extended;
x,y:Integer;
begin
x:=1;
y:=0;
try
i:=x/y;
except
ShowMessage('Can''t devide by zero!');
end;
end;
就可以了。

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #7

结帐吧

 

H

hygsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #8

这涉及到编译原理方面的问题,你的零做除数抛出异常,编译的时候会认为不合法,我是这样认为的.try except end;这个异常快,大多检测程序中潜在的错误,你直接用零做除数,编译的时候它应该会检测到这是个错误.

 

爱

爱如泣血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #9

wqhatnet:
可是这样的话try没有捕获异常呀。并没有执行ShowMessage();

 

爱

爱如泣血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #10

结合一下wqhatnet和hygsxy的就对了。
谢谢了。