身份证验证

function IDCheck(e: string): Boolean;
var
  arrVerifyCode, Wi, Checker: TStringList;
  Ai: string;
  strYear, strMonth, strDay, BirthDay: string;
  i, TotalmulAiWi, modValue: Integer;
  strVerifyCode: string;
begin
  arrVerifyCode := SplitString('1,0,x,9,8,7,6,5,4,3,2', ',');

  Wi := SplitString('7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2', ',');
  Checker := SplitString('1,9,8,7,6,5,4,3,2,1,1', ',');
  if (Length(e) < 15) or (Length(e) = 17) or (Length(e) > 18) then
  begin
    result := False; //IDCheck= "身份证号共有 15 位或16位或18位"
    Exit;
  end;
  if (Length(e) = 16) and ((not IsNumerice(Copy(e, 16, 1))) and (LowerCase(Copy(e, 16, 1)) <> 'x')) then
  begin
    result := False; //IDCheck= "身份证号16位或最后一位为数值或X"
    Exit;
  end;
  if Length(e) = 18 then
  begin
    Ai := Copy(e, 1, 17);
  end
  else
  begin
    Ai := e; //15,16位身份证
    Ai := Copy(Ai, 1, 6) + '19' + Copy(Ai, 7, 9);
  end;
  if not IsNumerice(Ai) then
  begin
    Result := False; //IDCheck= "身份证除最后一位外，必须为数字！"
    Exit;
  end;
  strYear := Copy(Ai, 7, 4);
  strMonth := Copy(Ai, 11, 2);
  strDay := Copy(Ai, 13, 2);
  BirthDay := Trim(strYear) + '-' + Trim(strMonth) + '-' + Trim(strDay);
  if IsDate(BirthDay) then
  begin
//    ShowMessage(IntToStr( Now - StrToDate(BirthDay)));  1790 2007

    if (StrToInt(Copy(FormatDateTime('YYYY-MM-DD', Now), 1, 4)) - StrToInt(strYear) > 100) or (strtoDateTime(BirthDay) > date) then
    begin
      result := False; //IDCheck= "身份证输入错误！"  352625185012035477
      Exit;
    end;
  end
  else
  begin
    result := False; //IDCheck= "身份证输入错误！"
    Exit;
  end;

  for i := 0 to 16 do
  begin
    TotalmulAiWi := TotalmulAiWi + StrToInt(Copy(Ai, i + 1, 1)) * StrToInt(Wi[i]);
  end;
  modValue := TotalmulAiWi mod 11;
  strVerifyCode := arrVerifyCode[modValue];
  Ai := Ai + strVerifyCode;
  if (Length(e) = 18) and (e <> Ai) then
  begin
    Result := False; //IDCheck= "身份证号码输入错误！"
    Exit;
  end;
  Result := True;
end;