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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.04582405090332 seconds