近段时间忙着那个企业商务助理，测试发现一些手机号码校验的问题，后来自己修复bug的时候，同事用了系统编写里面的一些函数。我看了看函数的原型，尽管简单，但是还是留下来学习或者什么时候也用。
function GetMobileType(mobile: string): integer; //-1错误，小灵通0,1,手机移动2,联通3
var
mblen: integer;
tmp_mobile: int64;
mbHeader: string;
begin
result := -1;
tmp_mobile := StrToInt64Def(mobile, 0);
mbHeader := copy(mobile, 1, 4);
if mbheader = '1349' then exit;
mbHeader := copy(mobile, 1, 3);
if tmp_mobile = 0 then exit;
if length(mobile) = 11 then
if (mbHeader = '134') or (mbHeader = '135') or (mbHeader = '136') or (mbHeader = '137')
or (mbHeader = '138') or (mbHeader = '139') or (mbHeader = '150') or (mbHeader = '151')
or (mbHeader = '157')
or (mbHeader = '158')
or (mbHeader = '159') then
result := 2;
end;