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;
|
|
联系电话：
020-00000000
联系电话：
020-00000000
联系电话：
020-12345678