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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi md5单元文件

Delphi禁用,启用网卡

Delphi中使用汇编(关于pos函数的问题)

Delphi百度网盘真实地址解析

几个webbrowser相关的函数

Delphi 时间转换为gmt格式

Delphi firemonkey 保存图片到jpg的方法 bmp转jpg

Delphi通过loadlibrary调用其他动态库

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi图片上写水印文字函数

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

转载请注明出处：木庄网络博客 » delphi 用正则表达式检查一个串是否是电信的手机号