本文整理自网络,侵删。
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 tpicture 和 tbitmap 的相互转换
Delphi ansiendstext 用法之一(路径结尾自动加\)
更多相关阅读请进入《Delphi》频道 >>