| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/1/29 9:56:03 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 如何控制在文本框中输入的第一个数字不能为 '0'，而其它数字可以为 '0'. 例如:不能输入 053 ，可输入 503。 ---------------------------------------------- 我真的不会！ |
|||||
| 作者： |
|
2004/1/29 10:06:24 | ||||
| 1楼： | 首先要引用StrUtils函数库 if MidStr(Edit1.Text,1,1)='0' then begin showmessage('第一位不能为0'); end; ---------------------------------------------- 我们共同努力，一切问题都会解决 |
|||||
| 作者： |
|
2004/1/29 10:44:34 | ||||
| 2楼： | 如果头一位一定要用字母大写呢？？？ ---------------------------------------------- Alien |
|||||
| 作者： |
|
2004/1/29 10:57:52 | ||||
| 3楼： | 判断第一为的assic码值是否在大写字母的范围内。就可以了 ---------------------------------------------- 我们共同努力，一切问题都会解决 |
|||||
| 作者： |
|
2004/1/29 11:26:51 | ||||
| 4楼： | if (ord(copy(s,1,1))>=65) and (ord(copy(s,1,1))<=90) then showmessage('第一位是大写'); ----------------------------------------------  
|
|||||
| 作者： |
|
2004/1/29 11:51:08 | ||||
| 5楼： | 我的意思是就不让他输入进去! ---------------------------------------------- 我真的不会！ |
|||||
| 作者： |
|
2004/1/29 11:56:11 | ||||
| 6楼： | 根本问题是我怎样控制第一个按下的键不能为'0'，1楼的答案是已经输入之后才进行的叛断不合乎我的想法。 ---------------------------------------------- 我真的不会！ |
|||||
| 作者： |
|
2004/1/29 12:00:16 | ||||
| 6楼： | procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (key < '0') or (key > '9') then key := chr(0); end; ---------------------------------------------- -也许我懂的很多，也许我懂的很少，但为什么没有公司要我？我很奇怪！ |
|||||
| 作者： |
|
2004/1/29 14:03:55 | ||||
| 7楼： | procedure TForm1.Edit1Change(Sender: TObject); var s:string; begin if edit1.Text <>' then begin s:=copy(edit1.Text ,1,1); if ord(s[1])=48 then edit1.Text:='; end; end; 这么简单都不动脑筋啊！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/1/29 14:10:33 | ||||
| 8楼： | procedure TForm1.edt1Change(Sender: TObject); begin if copy(edt1.text, 0,1) = '0' then edt1.Text := '; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/29 14:14:21 | ||||
| 9楼： | 哈哈！我只想着在onPress下写代码了，把onchange给忘了,该打！！！ ---------------------------------------------- 我真的不会！ |
|||||
| 作者： |
|
2004/1/29 14:16:37 | ||||
| 9楼： | 呵呵，最好继承重写TEdit控件！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/29 14:35:19 | ||||
| 10楼： | compaq 大哥请你给出原代码，谢谢！ ----------------------------------------------
|
|||||
| 信息 |
| 登陆以后才能回复 |
