delphi 检验手机号 IsMobileNumber

本文整理自网络，侵删。

 
 写个函数也可以
  function IsMobileNumber( num:string ):boolean;
  begin
    Result:=False;
    if length( trim( Num ) ) <> 11 then Exit;
    if ( ( copy( num, 1, 2) <> '13' ) and ( copy( num , 1, 2) <> '15' ) ) then Exit;
    try
      StrToInt( copy( num, 3, 9 ) );
      Result:=True;
    except
    end;
  end;
 

相关阅读 >>

Delphi xe 版本 示例原码下载

Delphi 如何替换word文档中的文本

Delphi access 加密方法

Delphi三种弹窗

怎样在Delphi中屏蔽flash控件的右键弹出菜单

Delphi winsock api写的邮件发送单元

Delphi 获取系统进程列表和进程所在路径

Delphi中几种注释方法

Delphi idhttp控件断点下载

Delphi 使用泛型的 tarray 为动态数组排序

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

转载请注明出处：木庄网络博客 » delphi 检验手机号 IsMobileNumber