编程论坛 → Delphi论坛

[求助]诚心求助关于edit问题！

无敌小胖牛发布于 2007-09-22 13:51， 1505 次点击

大师们好！

小弟刚开始使用delphi，向大家求助一个问题，就是在edit框中输入的数字范围在1-48之间如何编写，如果输入超过48或者小于1的话要提示错误。

请各位高手指教！！！！谢谢啦！！

6 回复

sky_yang_sky2007-09-22 17:06

if (strtoint(maskedit1.Text)>=1) and (strtoint(maskedit1.Text)<=48) then
else

showmessage('err');
用maskedit1方便，把mastedit屬性設為00;1;格式，maxlengh屬性設為2，在ONEXIT中加入上面的代碼應可以了

无敌小胖牛2007-09-22 22:09

非常感谢！！！

cobby2007-09-24 17:19

建议用ASC码来做，1楼给出的代码可能忽略其它符号的输入错误呵

provoke2007-09-26 22:32

要考虑异常处理！

Edit1.Text:=Trim(Edit1.Text);
if (Edit1.Text<>'') then //若去除前导和尾随空格后为非空
begin
try
if (strtoint(Edit1.Text)<1) or (strtoint(Edit1.Text)>48) then
//...提示数值范围错误，自己写
else
//...输入为合法数据时的处理
except
begin
showmessage('请输入数值');
Edit1.setFocus;
Edit1.selectAll;
end
end;
end

[此贴子已经被作者于2007-9-29 0:22:20编辑过]

yazi672007-09-28 14:12

哇,高手太多了,得好好学习一下呢

ysp_19842007-10-12 16:14

用TSpinEdit