| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1491 人关注过本帖
标题:[求助]诚心求助关于edit问题!
只看楼主 加入收藏
无敌小胖牛
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-9-22
收藏
 问题点数:0 回复次数:6 
[求助]诚心求助关于edit问题!
大师们好!

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

请各位高手指教!!!!谢谢啦!!
搜索更多相关主题的帖子: edit 诚心 
2007-09-22 13:51
sky_yang_sky
Rank: 3Rank: 3
等 级:论坛游民
威 望:8
帖 子:481
专家分:16
注 册:2007-5-30
收藏
得分:0 

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

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


你微笑的面對整個世界,整個世界也將會微笑的面對你。
2007-09-22 17:06
无敌小胖牛
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-9-22
收藏
得分:0 
非常感谢!!!
2007-09-22 22:09
cobby
Rank: 1
等 级:新手上路
威 望:1
帖 子:565
专家分:0
注 册:2007-7-11
收藏
得分:0 
建议用ASC码来做,1楼给出的代码可能忽略其它符号的输入错误呵

努力成为菜鸟!
2007-09-24 17:19
provoke
Rank: 2
来 自:广州
等 级:新手上路
威 望:5
帖 子:175
专家分:0
注 册:2007-6-14
收藏
得分:0 
要考虑异常处理!

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


爱我至爱,至死不渝!
2007-09-26 22:32
yazi67
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-6-5
收藏
得分:0 
哇,高手太多了,得好好学习一下呢
2007-09-28 14:12
ysp_1984
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:371
专家分:0
注 册:2006-1-5
收藏
得分:0 

用TSpinEdit


心中的那片蓝天,永远为你而存在... ...
2007-10-12 16:14
快速回复:[求助]诚心求助关于edit问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031483 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved