英特尔®游戏设计大赛100美元现金周周送	专题改版：Java Web 专题

如何限制特定字符串！

楼主appropriate（）2003-06-03 23:13:22 在 Delphi / VCL组件开发及应用提问

限制字符串中必须有 @ ,来验来证是否是合法的 email 地址。
如果没有则showmessage('非法字符')
限制字符串必须是整数，来验证是否是合法的移动电话号码。
如果不是整数则showmessage('非法号码') 不要用 try ...except ...end 来判断。
谢谢！问题点数：100、回复次数：10Top

1 楼things（Loving You）回复于 2003-06-03 23:20:19 得分 0

1,使用pos函数，使用方法请看帮助Top

2 楼sea026（沸点海岭_____征求“海”字的26种写法）回复于 2003-06-03 23:23:30 得分 30

var
I: Integer;
begin
I := AnsiPos('@', string);
if I = 0 then
showmessage('非法字符')

如果不是整数则showmessage('非法号码') 不要用 try ...except ...end 来判断。
为何？Top

3 楼things（Loving You）回复于 2003-06-03 23:23:37 得分 30

2。是使用edit接收字符串吗？
如果是可以在keypress事件中通过限制输入来实现

if not (key in ['1'..'9', #8, #13, #27]) then
key := #0;Top

4 楼appropriate（）回复于 2003-06-03 23:33:59 得分 0

能解释下 #8 #13 #27 和 key:=#0 是什么意思吗？Top

5 楼lEFTmOON（我的小站(www.ismyway.com)）回复于 2003-06-03 23:36:50 得分 30

#8不知道
#13回车
#27 Esc
#0使输入字符无效
Top

6 楼appropriate（）回复于 2003-06-03 23:48:11 得分 0

但是这样没有反馈信息阿？Top

7 楼patchclass（黑翼）回复于 2003-06-03 23:50:03 得分 0

整数用 StrToIntDef判断看看Top

8 楼apple058（浪迹天涯）回复于 2003-06-04 00:10:15 得分 0

#8 好像是按 Tab 键Top

9 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2003-06-04 00:21:44 得分 0

是不是应该加上 @的ansi？ #64??Top

10 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2003-06-04 00:23:29 得分 10

if not (key in ['1'..'9', #8, #13, #27,#64]) then
key := #0;//这里是不是在加个showmessage*（）；？？
Top