M maozhuxi Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #21 爱如泣血 我骗你干什么？你下载的哪个东东又不是没有原文件 你自己打开看看就知道了啊！
C chnplzh Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #22 maozhuxi肯定是对的! 爱如泣血, 请贴出您的e-mail,我发送给您!
W WoDing Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #23 procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; i:extended; begin x:=1; y:=0; i:=0; try try i:=x/y; except showmessage('can not divide by zero'); end; finally caption:=floattostr(i); end; end; 肯定是对的啊！ 上面的偶测试通过了的，有错也是你的问题
procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; i:extended; begin x:=1; y:=0; i:=0; try try i:=x/y; except showmessage('can not divide by zero'); end; finally caption:=floattostr(i); end; end; 肯定是对的啊！ 上面的偶测试通过了的，有错也是你的问题
N netarct Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #24 我在上面都已经解释很清楚了，famu还给出了具体的代码，真不知道还有什么不明白的。 不懂。
W wqhatnet Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-14 #25 var x,y:integer; i:extended; begin x:=11; y:=0; i:=450; try i:=x/y; showMessage(floatToStr(i)); except showmessage('can not divide by zero'); end; end; 楼主还不明白吗? 代码是没有问题, 问题在于,你的那个i在程序的其他地方没有用到 而被编译器的优化功能给抛弃了,也就是他根本没有被执行,当然就没有异常可抓了
var x,y:integer; i:extended; begin x:=11; y:=0; i:=450; try i:=x/y; showMessage(floatToStr(i)); except showmessage('can not divide by zero'); end; end; 楼主还不明白吗? 代码是没有问题, 问题在于,你的那个i在程序的其他地方没有用到 而被编译器的优化功能给抛弃了,也就是他根本没有被执行,当然就没有异常可抓了
R Roadsign Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-14 #26 用DELPHI编译完后不要直接运行，到DELPHI外再运行 DELPHI编译环境下有些条件用TRY EXCEPT体现不出来
Z zhuuk999 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-15 #27 用DELPHI编译完后不要直接运行，到DELPHI外再运行 DELPHI编译环境下没用
J jianguobu Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-24 #29 这个问题怎么还没结呀?? procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; i:extended; s:string; begin x:=1; y:=0; i:=0; try try i:=x/y; s:=floattostr(i); except showmessage('can not divide by zero'); end; finally i:=0; end; end; 这是编辑器的事件,就是说你定义了变量没用它.你按我上面加上就有提示了.
这个问题怎么还没结呀?? procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; i:extended; s:string; begin x:=1; y:=0; i:=0; try try i:=x/y; s:=floattostr(i); except showmessage('can not divide by zero'); end; finally i:=0; end; end; 这是编辑器的事件,就是说你定义了变量没用它.你按我上面加上就有提示了.
F farce Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-24 #30 to jianguobu 你认为finally后面的i能执行吗？
S sany Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-24 #31 这样简单点的跟楼主的有何不同呀！ procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; i:extended; begin x:=1; y:=0; i:=0; try i:=x/y; finally showmessage('can not divide by zero'); i:=0; end; end;
这样简单点的跟楼主的有何不同呀！ procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; i:extended; begin x:=1; y:=0; i:=0; try i:=x/y; finally showmessage('can not divide by zero'); i:=0; end; end;
X xinxinxin Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-26 #32 你在代码中写的 i:=x/y; 实际上是赋值语句， delphi 编译器如果发现后面的语句中没有任何语句要使用 变量 i 的话， delphi 是不会把这句编译成机器代码的。 所以你永远不会得到后面的异常处理的显示。
你在代码中写的 i:=x/y; 实际上是赋值语句， delphi 编译器如果发现后面的语句中没有任何语句要使用 变量 i 的话， delphi 是不会把这句编译成机器代码的。 所以你永远不会得到后面的异常处理的显示。
柳 柳平 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-01 #34 我试行了’sany‘的程序能够 弹出'can not divide by zero'消息 “WoDing”的程序只能在脱离了delhpi7环境下才可以弹出这则消息
