delphi语句

一个计算器的代码 四个按钮分别代表“加”“减”“乘”“除”按第一个按钮(加)时实现加的效果 代码,edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));
但是当edit1和edit2里面不输入任何数字的时候按这个“加”时程序就会报错 请各位告诉我需要加条什么代码可以解决这个问题 谢谢
if edit1.text<>'' and edit2.text<>'' then //不为空
edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));
else
showmessage('请在文本框中输入数字!') 追问
您的这段代码不执行 您再看看 谢谢
edit3.text:=inttostr((strtointdef(edit1.text,0) + strtointdef(edit2.text,0)));

这样就不会出错了. 追问
能解释下意思吗?谢谢
追答
strtointdef
这个函数.只是在edit1.text内的文字不能转为数字的情况下给出一个默认值.
这里默认值给的是0.
所以在计算的时候是不会出错的.
如果你想用strtoint.则在计算时加入try...except...end;也是可以的,不过没有直接使用strtointdef方便
edit3.text:=inttostr((strtointdef(edit1.text,0) + strtointdef(edit2.text,0)));

这样就不会出错了. 追问
能解释下意思吗?谢谢
追答
strtointdef
这个函数.只是在edit1.text内的文字不能转为数字的情况下给出一个默认值.
这里默认值给的是0.
所以在计算的时候是不会出错的.
如果你想用strtoint.则在计算时加入try...except...end;也是可以的,不过没有直接使用strtointdef方便
if edit1.text<>'' and edit2.text<>'' then //不为空
edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));
else
showmessage('请在文本框中输入数字!') 追问
您的这段代码不执行 您再看看 谢谢
http://zhidao.baidu.com/question/366996273.html
delphi语句 - 芳纳网

delphi语句

一个计算器的代码 四个按钮分别代表“加”“减”“乘”“除”按第一个按钮(加)时实现加的效果 代码,edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));
但是当edit1和edit2里面不输入任何数字的时候按这个“加”时程序就会报错 请各位告诉我需要加条什么代码可以解决这个问题 谢谢
if edit1.text<>'' and edit2.text<>'' then //不为空
edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));
else
showmessage('请在文本框中输入数字!') 追问
您的这段代码不执行 您再看看 谢谢
edit3.text:=inttostr((strtointdef(edit1.text,0) + strtointdef(edit2.text,0)));

这样就不会出错了. 追问
能解释下意思吗?谢谢
追答
strtointdef
这个函数.只是在edit1.text内的文字不能转为数字的情况下给出一个默认值.
这里默认值给的是0.
所以在计算的时候是不会出错的.
如果你想用strtoint.则在计算时加入try...except...end;也是可以的,不过没有直接使用strtointdef方便
edit3.text:=inttostr((strtointdef(edit1.text,0) + strtointdef(edit2.text,0)));

这样就不会出错了. 追问
能解释下意思吗?谢谢
追答
strtointdef
这个函数.只是在edit1.text内的文字不能转为数字的情况下给出一个默认值.
这里默认值给的是0.
所以在计算的时候是不会出错的.
如果你想用strtoint.则在计算时加入try...except...end;也是可以的,不过没有直接使用strtointdef方便
if edit1.text<>'' and edit2.text<>'' then //不为空
edit3.text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));
else
showmessage('请在文本框中输入数字!') 追问
您的这段代码不执行 您再看看 谢谢
http://zhidao.baidu.com/question/366996273.html