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的cpu调试窗口

Delphi 在线程中运行窗体

Delphi tlog 日志

Delphi cardpanel1 简单的切换

Delphi写游戏外挂

Delphi xe datasnap服务器获取客户端ip地址

Delphi setprivilege 提权代码

Delphi trim 删除字符串左右两边的空格

Delphi dbgrid 表格自适应宽度

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

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