注册 登录
编程论坛 Delphi论坛

[求助]怎样添加错误提示

erlin 发布于 2007-04-06 21:40, 584 次点击
比如一个计算器,在Edit.text里输入数字然后计算,但是如果输入非数字或不输入情况下按按妞后就会出现错误,但这个错误提示是系统发出的并且是英文,而且程序也会被关闭,怎样使错误提示变成自己想要的内容,并且不会因为出错而别强制关闭。
4 回复
#2
anthony6342007-04-06 21:46

if StrToIntDef(Edit.text,0) = 0 then
begin
showmessage('别瞎几吧整,给我些数字');
end;

#3
erlin2007-04-07 11:19
...
if StrToIntDef(Edit.text,0) = 0 then //给我解释一下吧
StrToIntDef这是个什么。 括号里面的0代表什么意思?
#4
ty22007-04-07 16:42
能不能用用try语句呢?
#5
nongen2007-04-07 22:09
可以
1