delphi 用正则表达式检查一个串是否是电信的手机号


本文整理自网络,侵删。

 function TForm1.IsMobileNumber(s:string): Boolean;
// uses PerlRegEx
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create;
  try
    reg.Subject := s;
  //匹配号段: 133153189180181177173 去掉170
    reg.RegEx :'^1(33|53|8[019]|7[37])\d{8}$';
    result := reg.Match;
  finally
    reg.Free;
  end;
end;

相关阅读 >>

Delphi 使用tarray.sort对数组排序

Delphi shgetfileinfo函数

Delphi 根据文件路径获取文件名

Delphi编写dll(以及静态和动态方式调用)

Delphi 静态数组的定义方法

Delphi 用dll实现插件的简单演示

Delphi之软件检测更新

Delphi 复制文件到全盘

Delphi 判断字符是否是汉字,bytetype字符串中判断是否英文

Delphi tfile

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...