uses PerlRegEx

function CheckmobileNo(mobileNo: string): Boolean; //验证手机号

var

PerlRegEx: TPerlRegEx;

begin

PerlRegEx := TPerlRegEx.Create(nil);

PerlRegEx.Subject := mobileNo;

PerlRegEx.RegEx := '^1[358][0-9]{9}$';

Result := PerlRegEx.Match;

PerlRegEx.Free;

end;