function //校验身份证,合法返回字符1,否则返回格式错误信息 function ValidatePID(const APID: string): string; {内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char; var nNum: Integer; begin Result := #0; nNum := StrToInt(sIdentityNum[1]) * 7 StrToInt(sIdentityNum[2]) * 9 StrToInt(sIdentityNum[3]) * 10 StrToInt(sIdentityNum[4]) * 5 StrToInt(sIdentityNum[5]) * 8 StrToInt(sIdentityNum[6]) * 4 StrToInt(sIdentityNum[7]) * 2 StrToInt(sIdentityNum[8]) * 1 StrToInt(sIdentityNum[9]) * 6 StrToInt(sIdentityNum[10]) * 3 StrToInt(sIdentityNum[11]) * 7 StrToInt(sIdentityNum[12]) * 9 StrToInt(sIdentityNum[13]) * 10 StrToInt(sIdentityNum[14]) * 5 StrToInt(sIdentityNum[15]) * 8 StrToInt(sIdentityNum[16]) * 4 StrToInt(sIdentityNum[17]) * 2; nNum := nNum mod 11; case nNum of 0: Result := '1'; 1: Result := '0'; 2: Result := 'X'; 3: Result := '9'; 4: Result := '8'; 5: Result := '7'; 6: Result := '6'; 7: Result := '5'; 8: Result := '4'; 9: Result := '3'; 10: Result := '2'; end; end; var L: Integer; sCentury: string; sYear2Bit, sYear4Bit: string; sMonth: string; sDate: string; iCentury: Integer; iMonth: Integer; iDate: Integer; CRCFact: string; //18位证号的实际值 CRCTh: string; //18位证号的理论值 FebDayAmt: Byte; //2月天数 begin L := Length(APID); if (L in [15, 18]) = False then begin Result := Format('身份证号不是15位或18位(%0:s, 实际位数:%1:d)', [APID, L]); Exit; end; CRCFact := ''; if L = 18 then begin sCentury := Copy(APID, 7, 2); iCentury := StrToInt(sCentury); if (iCentury in [18..20]) = False then begin Result := Format('身份证号码无效:18位证号的年份前两位必须在18-20之间(%0:S)', [sCentury]); Exit; end; sYear2Bit := Copy(APID, 9, 2); sYear4Bit := sCentury sYear2Bit; sMonth := Copy(APID, 11, 2); sDate := Copy(APID, 13, 2); CRCFact := Copy(APID, 18, 1); end else begin sCentury := '19'; sYear2Bit := Copy(APID, 7, 2); sYear4Bit := sCentury sYear2Bit; sMonth := Copy(APID, 9, 2); sDate := Copy(APID, 11, 2); end; iMonth := StrToInt(sMonth); iDate := StrToInt(sDate); if (iMonth in [01..12]) = False then begin Result := Format('身份证号码无效:月份必须在01-12之间(%0:s)', [sMonth]); Exit; end; if (iMonth in [1, 3, 5, 7, 8, 10, 12]) then begin if (iDate in [01..31]) = False then begin Result := Format('身份证号码无效:日期无效,不能为零或超出当月最大值(%0:s)', [sDate]); Exit; end; end; if (iMonth in [4, 6, 9, 11]) then begin if (iDate in [01..30]) = False then begin Result := Format('身份证号码无效:日期无效,不能为零或超出当月最大值(%0:s)', [sDate]); Exit; end; end; if IsLeapYear(StrToInt(sCentury sYear2Bit)) = True then begin FebDayAmt := 29; end else begin FebDayAmt := 28; end; if (iMonth in [2]) then begin if (iDate in [01..FebDayAmt]) = False then begin Result := Format('身份证号码无效:日期无效,不能为零或超出当月最大值(%0:s)', [sDate]); Exit; end; end; if CRCFact <> '' then begin CRCTh := GetVerifyBit(APID); if CRCFact <> CRCTh then begin Result := Format('身份证号码无效:校验位(第18位)错:(%0:s)', [APID]); Exit; end; end; Result := '1'; end;//校验手机号
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
;
100字范文,内容丰富有趣,生活中的好帮手!