山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

如果判断一个文本里面输入的数字前三位是不是移动的号码头,就是135 136 137 138 139否则提示出错，

楼主ssson（疾风魔狼）2006-01-24 14:08:26 在 Delphi / 数据库相关提问

得怎么写呢？
急.谢谢各位大虾罩我呢. 问题点数：20、回复次数：11Top

1 楼yrb（老土傻帽）回复于 2006-01-24 14:15:33 得分 3

if (StrToInt(Copy(Edit1.Text, 1, 3)) >= 135) and (StrToInt(Copy(Edit1.Text, 1, 3)) <= 139) then
ShowMessage('ok')
else
ShowMessage('error');Top

2 楼ssson（疾风魔狼）回复于 2006-01-24 14:37:38 得分 0

那如何判断文本框　里的字符长度是不是超过11位了，用length么，怎么用的，举个简单的例子好不Top

3 楼liyinwei（月夜彩虹）回复于 2006-01-24 14:38:19 得分 3

修改一下楼上的会更好
i: Integer;
i := StrToIntDef(Copy(Edit1.Text,1,3),0);
if i in [135..139] then
//OK
else
//Error
Top

4 楼Qqwwee_Com（http://qqwwee.com）回复于 2006-01-24 14:39:08 得分 3

^13[4-9]\d{8}$

这个正则

====CSDN 小助手 V2.5 2005年11月05日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx
下载：http://szlawbook.com/csdnv2

惊喜
无偿送域名（K ｉ l l Ｊ a ｐ a ｎ e ｓ e.com），请联系QQ32528568
先到先得。2005年11月21日 21:29分开始。

Top

5 楼liyinwei（月夜彩虹）回复于 2006-01-24 14:40:13 得分 3

TEdit有MaxLength属性Top

6 楼yrb（老土傻帽）回复于 2006-01-24 14:40:35 得分 3

if(length(trim(edit1.text)) < 11 then
begin
...
end
else if (length(trim(edit1.text)) = 11 then
begin
...
end
else
begin
...
end;Top

7 楼slipsun（奋斗!直到我的名字响彻天堂...）回复于 2006-01-25 08:25:47 得分 1

学习。。。。Top

8 楼swimming8243（swimming）回复于 2006-01-25 09:31:40 得分 1

同意 liyinwei(月夜彩虹) 的，可能输入的是字母或其它的Top

9 楼leeyihan（leeyihan）回复于 2006-01-25 11:08:06 得分 1

楼主注意，中国移动要搞159的号段了，134的号段已经开了，程序不能写的太死，否则...Top

10 楼fengzsz（班沙克）回复于 2006-01-25 17:14:58 得分 1

leeyihan(leeyihan) 楼主注意，中国移动要搞159的号段了

没听说啊,可靠吗
Top

11 楼liyinwei（月夜彩虹）回复于 2006-01-25 17:34:50 得分 1

Google 搜一下：中国移动 159 ，确实有很多相关的信息。
其实号码段可以让用户设置，就不存在新号段的问题了。Top