身份证格式验证（ID format validation）.doc

身份证格式验证（ID format validation） which ccitycode: array [0..91] of string = ( , , , , , , , , , , , 北京, 天津, 河北, 山西, 内蒙古, , , , , , 辽宁, 吉林, 黑龙江, , , , , , , , 上海, 江苏, 浙江, 安微, 福建, 江西, 山东, , , , 河南, 湖北, 湖南, 广东, 广西, 海南, , , , 重庆, 四川, 贵州, 云南, 西藏, , , , , , , 陕西, 甘肃, 青海, 宁夏, 新疆, , , , , , 台湾, , , , , , , , , , 香港, 澳门, , , , , , , , , 国外); function checkcidinfo (mcidcode: string): variant; was s: set of char; i: integer; vdatetime: tdatetime; t: double; ischeckpack: tdatapacket; begin ischeckpack: = tdatapacket. create; ischeckpack.initializtion (5); ischeckpack. append; if length (mcidcode) 18 then begin ischeckpack.add (result, f); ischeckpack.add (error, # 编码必须是18位); result: = ischeckpack. value; exit; than; s: = []; for i: = 1 to 17 do include (s, mcidcode [in]); if s - [0.. 9 ] [] then begin ischeckpack.add (result, f); ischeckpack.add (error, # 编码前17位必须是数字); result: = ischeckpack. value; exit; than; if not (mcidcode [18] in [0.. 9 , x , x ]) then begin ischeckpack.add (result, f); ischeckpack.add (error, # 最后一位必须是数字或者是x); result: = ischeckpack. value; exit; than; in: = strtointdef (copy (mcidcode, 1, 2, 0); if (i high (ccitycode)) or (ccitycode [in] = ) then begin ischeckpack.add (result, f); ischeckpack.add (error, # 地址码不正确); result: = ischeckpack. value; exit; than; / / 地区 / / result: = 地区: + ccitycode [in]; if not trystrtodate (copy (mcidcode, 7, 4) + - + copy (mcidcode, 11, 2) + - + copy (mcidcode, 13, 2), vdatetime) then begin ischeckpack.add (result, f); ischeckpack.add (error, # 生日码不正确: + copy (mcidcode, 7, 4) + - + copy (mcidcode, 11, 2) + - + copy (mcidcode, 13, 2)); result: = ischeckpack. value; exit; than; if (vdatetime date) or (vdatetime strtodate (1900 - 10 - 01 )) then begin ischeckpack.add (result, f); ischeckpack.add (error, # 生日不符合逻辑); result: = ischeckpack. value; exit; than; / / 生日 / / result: = result + 生日: + formatdatetime (yyyy mm dd, vdatetime); if mcidcode [18] in [x, x] then mcidcode [18]: = a; t: = 0; for i: = 18 downto 1 do t: = t +