delphi 检验手机号 IsMobileNumber


本文整理自网络,侵删。

 
 写个函数也可以
  function IsMobileNumber( num:string ):boolean;
  begin
    Result:=False;
    if length( trim( Num ) ) <> 11 then Exit;
    if ( ( copy( num, 1, 2) <> '13' ) and ( copy( num , 1, 2) <> '15' ) ) then Exit;
    try
      StrToInt( copy( num, 3, 9 ) );
      Result:=True;
    except
    end;
  end;

相关阅读 >>

Delphi加载图像存储到数据库中

Delphi 判断目录是否有写入权限

快速上手Delphi三十六计之输入处理篇

Delphi 在电脑屏幕上显示图片

Delphi 双进程监控保护

Delphi程序删除自己

Delphi使用ixmlhttprequest 简单获取网页源代码

Delphi 之 定时器 (ttimer组件)

Delphi之完美splash方案

Delphi中安装和使用kol和mck

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...