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 getfileversion 获取文件版本

Delphi rgb 画出三角形

Delphi中控制扫描仪

Delphi case选择语句练习代码简化

monthdays：给出一个月的天数

Delphi winapi: getwindowtext - 获取窗口标题

Delphi研究之驱动开发篇（四）--使用系统内存堆

Delphi byte数组根据utf8 转换为string

Delphi self-delete程序

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

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