procedure TForm1.Button1click(Sender:TObject)
var
i:integer;
begin
try
i:=strtoint(Edit1.text);
except
showmessage('AA');
end;
end;
出现转换错误,为什么不执行showmessage('AA');而直接给出错误警告!
哪为大哥帮个忙解决一下!
except加上on ...do...也行,就是不执行except后面的语句为什么?
var
i:integer;
begin
try
i:=strtoint(Edit1.text);
except
showmessage('AA');
end;
end;
出现转换错误,为什么不执行showmessage('AA');而直接给出错误警告!
哪为大哥帮个忙解决一下!
except加上on ...do...也行,就是不执行except后面的语句为什么?
解决方案 »
- 从A.exe中打开B.exe的问题
- odac的oraquery控件,查询一张表的clob字段,在open处停止响应
- 使用Intraweb开发网页时,在IE中重复访问时弹出错误!
- idftp通过http代理上传
- image画图
- 在Delphi里,怎样把一串16进制的数转换为10进制的数?
- InstallShield问题!!
- 100分求助!Delphi中如何open一个含游标Oracle的过程,为什么总是“Error creating cursor handle”
- 能够解决形如y=a0+a1*x1+a2*x2+a3*x3的回归算法
- 求解DELPHI问题 救急啊 帮帮忙 万分感激啊
- 关于位运算的问题!!
- 為何在線程中無法關閉程序?
var
i:integer;
begin
try
i:=strtoint(Edit1.text);
ShowMessage(IntToStr(i)); //加上这句就行了, 不加这句,前面那句给 Delphi优化掉了。
except
showmessage('AA');
end;
end;