Delphi 正则表达式校验手机号

本文整理自网络，侵删。

 
function CheckSJHRegEx(sjh: string): Boolean;
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create();
  reg.Subject := sjh;
  reg.RegEx := '1(3|5|7|8)\d{9}';
  Result:= reg.Match;
  FreeAndNil(reg);
end;

 

相关阅读 >>

Delphi切换指定窗口到最前并获得焦点

Delphi xe将图标和图像添加为资源

Delphi 是否是闰年- isleapyear、isinleapyear

Delphi 内存管理[4]

Delphi下程序内存泄露报告

Delphi 调用外部程序并等待其运行结束

Delphi遍历文件目录

Delphi 枚举消息钩子的代码

Delphi在64位系统下写注册表注意事项

Delphi 判断进程名是否存在，如果存在则结束进程

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

转载请注明出处：木庄网络博客 » Delphi 正则表达式校验手机号