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后面的语句为什么?
解决方案 »
- 请高人指点;怎么解决这个问题Access Violation at address ×××× in module ****.DLL',Read of address 24010C016
- 在Delphi中怎样添加MsComm组件包
- 怎样用TOleContainer对word或者Excel之类的处理
- 如何判定一个输入的字符串为合法ip地址?
- 三層結構,客戶端程序如何操作數據表(添加 修改 刪除 查詢等等)
- 怎样在DELPHI里调用WINDOWS里的非动态库函数
- 请问如何的到一个外部程序某个按钮的ID号?
- 菜鸟又送分:关于installshield的问题
- 终于近来了
- 收不收费的问题
- 很简单的问题
- DELPHI反射?
begin
if (key in ['0'..'9',#13]=false) and (word(key)<>vk_back) then begin
key:=#0;
end;
只能让其输入数字就不会报错了
....
except on E: Exception do
showmessage('aa');
end
在你调试时会弹出错误,编译后运行exe文件时,会弹出信息。
编译成EXE文件就可以了