Question

delphi的TRY EXCEPT语句

是这样的.
现在有一个EDIT1控件.
我想这么写
TRY.
如果是数值型的话那就进行插入操作.
否则就提示错误

try
if application.MessageBox('是否添加记录','提示',mb_yesno)=id_yes then
f2_query.Insert;
except
application.MessageBox('无法保存,数据类型不符','提示',mb_yesno);
end;
就象这样写.请问正确吗.

如果不正确应该怎么写.
就是数据库里是数值型.而我控件用的EDIT.如果EDIT里写的是ABCD这类的字符型就会提示错误了.我现在想屏掉这个错误.

Answer 1

我不知道你具体的程序怎麼写的，你这段代码有错，是这样写的
if application.MessageBox('是否添加记录','提示',mb_yesno)=id_yes then
f2_query.Insert
else
application.MessageBox('无法保存,数据类型不符','提示',mb_yesno);

这里的判断不需要用try...except...end;

Answer 2

try
except
是用来捕捉错误并处理的。
比如，你的edit里面需要输入数字，但是别人却放几个汉字在里面，执行strtoint()时程序就会出错。而用try..except就可以捕捉到这个错误并加以处理。
例如：
try
strtoint(edit1.text);
except
begin
edit1.text:='';
showmessage('请输入数字');
end;