RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

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

作者:admin 来源: 日期:2017/3/6 19:15:01 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料