| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/18 12:37:10 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 怎么限制EDIT只能输入0-59之间的数啊？ ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/18 14:01:41 | ||||
| 1楼： | procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#8 then exit; if (key<#48) or (key>#57) then key:=#0; if length(edit1.Text)>1 then key:=#0; if (length(edit1.Text)=1) and (strtoint(edit1.Text)>5) then key:=#0; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/18 14:24:15 | ||||
| 1楼： | procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key<'0')or(key>'9') then key:=chr(0); end; //-------------------------------------------------------------- procedure TForm1.Edit1Change(Sender: TObject); begin if edit1.Text=' then exit; if strtofloat(edit1.Text)>59 then begin showmessage('请输入小于59的数字'); edit1.Text:='; end; end; 电脑上试过,应该可以. ---------------------------------------------- 注意:这个男人有点色 |
|||||
| 作者： |
|
2004/3/18 15:12:49 | ||||
| 3楼： | cyh9519 你的方法比较实用，因为我要求的是输入时就判断，请问一下你是怎么实现的呀？ if (key<#48) or (key>#57) then key:=#0; 是什么意思呢？ ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/18 15:19:31 | ||||
| 4楼： | 查看一下ASCII码就知道了 ---------------------------------------------- 尽情舒展,是一种向往,想去的地方、想拥有的感受,尽管追求! |
|||||
| 作者： |
|
2004/3/18 15:23:24 | ||||
| 4楼： | key=#48表示输入的是0,#49表示1…………#57表示9 超出这个范围的都是不允许输入的,用key:=#0就能起到这个效果 退格键是允许使用的 所以先写if key=#8 then exit; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/18 15:28:01 | ||||
| 5楼： | cyh9519 谢谢你哈，可不可以加我QQ？ 7315910 ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 信息 |
| 登陆以后才能回复 |
