头次使用数组，请FW们看看应该如何理解！10分 找商品进销存表格下载
财务软件版1楼: 用Delphi小程序来验证你的身份证代码如下：问题见代码斜杠“//”处
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=f(edit1.Text);
end;
function TForm1.f(id1:string):string;//id1是否包含W、P里的空间内容
const
w:array[1..18]of integer=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);
p:array[0..10]of char=(＇＇1＇＇,＇＇0＇＇,＇＇x＇＇,＇＇9＇＇,＇＇8＇＇,＇＇7＇＇,＇＇6＇＇,＇＇5＇＇,＇＇4＇＇,＇＇3＇＇,＇＇2＇＇);
var
j,i,s:integer;
begin
newid:=id1;//从这里看，好象是把P与W的内存空间里的内容给了NEWID，这样理解对否？
s:=0;
try
for i:=1 to 17 do
begin
j:=strtoint(newid★)*w★;
s:=s+j;
end;
except
result:=＇＇＇＇;
exit;
end;
s:=s mod 11;//这个除11做何解释？！
result:=newid+p▲;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=f(edit1.Text);
end;
function TForm1.f(id1:string):string;//id1是否包含W、P里的空间内容
const
w:array[1..18]of integer=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);
p:array[0..10]of char=(＇＇1＇＇,＇＇0＇＇,＇＇x＇＇,＇＇9＇＇,＇＇8＇＇,＇＇7＇＇,＇＇6＇＇,＇＇5＇＇,＇＇4＇＇,＇＇3＇＇,＇＇2＇＇);
var
j,i,s:integer;
begin
newid:=id1;//从这里看，好象是把P与W的内存空间里的内容给了NEWID，这样理解对否？
s:=0;
try
for i:=1 to 17 do
begin
j:=strtoint(newid★)*w★;
s:=s+j;
end;
except
result:=＇＇＇＇;
exit;
end;
s:=s mod 11;//这个除11做何解释？！
result:=newid+p▲;
end;
2楼: (1)newid没有定义
(2)防止越界 如商品进销存表格下载
3楼: 同意 leehq
p是校验码: 1 0 X 9 8 7 6 5 4 3 2，长度为11
4楼: 我赞同
5楼: newid这个没有定义，会不会报错了？！
6楼: newid 没有定义 当让报错了
财务软件版7楼: 那NEWD1应该如何定义了？
“id1是否包含W、P里的空间内容”这个理解对吗？！
8楼: to wwei656
还没结貼，你给的代码都是★▲;别人如何帮你理解：）
下面是我在网上找到的,有完整的代码一看就明白意思~~
http://www.cnxhacker.com/article/show/1656.html
NewID 是个临时字符串变量
这是一段用Delphi实现身份证15位升18位的算法，这个不适用于100岁以上的老人。
9楼: ★▲这个其实是头像表情图片,因一时没有找到,就拿这个代替了.
10楼: 多人接受答案了。
11楼: Insert(＇＇19＇＇, NewID, 7); 这句是什么意思/
联系我们
