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 屏幕整体拉出源代码

Delphi 数字转excel字母列序号

Delphi��image存入读取mysql数据库

Delphi xe 在图片上写字

Delphi xe5 android 捕获几个事件

Delphi byte数组根据utf8 转换为string

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi 调用win32 api操作串口

Delphi 编写系统服务

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

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