<textarea>; function IDCheck(IDNum: String):Bool;
var i, j, sum: integer;
begin
Result := true;
if (Length(IDNum)<>10) or ((IDNum[2]<>'1') and (IDNum[2]<>'2'))then
begin
Result := false;
exit;
end;
case Ord(IDNum[1]) of
73,105: i := 34;
79,111: i := 35;
65..72: i := Ord(IDNum[1]) - 55;
74..78: i := Ord(IDNum[1]) - 56;
80..90: i := Ord(IDNum[1]) - 57;
97..104: i := Ord(IDNum[1]) - 87;
106..110: i := Ord(IDNum[1]) - 88;
112..122: i := Ord(IDNum[1]) - 89;
else
begin
Result := false;
exit;
end;
end;
Delete(IDNum,1,1);
IDNum := IntToStr(i) IDNum;
sum := 0;
for i := 1 to 10 do
begin
if 11 - i = 10 then
j := 1
else
j := 11 - i;
sum := sum StrToInt(IDNum[i]) * j;
end;
if (10 - (sum mod 10) <> StrToInt(IDNum[11])) and (sum mod 10 <> 10) then
Result := false;
end; <textarea></body></html></textarea>

------
新手出招，歡迎指教！

編輯記錄

Delphi.ktop討論版相關使用條例請參
[code delphi]
請在此區域輸入程式碼
[/code]
見常見問題(