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 socket connect timeout 套字节链接超时设置

Delphi sqlite vacuum 压缩数据库体积

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi disable_uac_vista

Delphi format函数的用法

Delphi 全盘搜索指定文件

Delphi 清空某个form的控件内容,用tag来判断

Delphi跨平台检测网络连接状态

Delphi 将tbitmap与tgpimage转换

Delphi 使richedit中的链接可以点击

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

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