تابعی برای کنترل صحت کد ملی

[helia]

سلام دوستان عزیز
در زیر یه تابع برای کنترل صحت کد ملی میذارم


Function MelliCheck(Melli:string):boolean;
var
check,r:real;
begin
if Length(Melli)<>10 then begin
Result:=false;
end else begin
Check:=(strtoint(melli[1])*10)+(strtoint(melli[2])*9)+(strtoint(melli[3])*8)+(strtoint(melli[4])*7)+(strtoint(melli[5])*6)+(strtoint(melli[6])*5)+(strtoint(melli[7])*4)+(strtoint(melli[8])*3)+(strtoint(melli[9])*2);
r:=Check-((int(Check/11))*11);
if r<2 then begin
Check:=r;
end else begin
Check:=11-r;
end;
if strtoint(melli[10])=Check then begin
Result:=true;
end else begin
Result:=false;
end;
end;
end;


ببخشید اگه خیلی حرفه ای نوشته نشده، عوضش خوب کار می کنه