大师们好！

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

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

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

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

非常感谢！！！

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

要考虑异常处理！

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编辑过]

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

用TSpinEdit