function TForm1.CodeToIsbn(isbn: string): string;
var
count:integer;
i:byte;
begin
count:=0;
isbn:=AnsiReplaceStr(isbn,'-',''
for i:=10 downto 2 do
count:=count+i*strtoint(isbn[14-i]);
i:=count mod 11;
result:=copy(isbn,4,9);
case i of
0: result:=result+inttostr(0);
10: result:=result+'X';
else result:=result+inttostr(11-i);
end;
end;
var
count:integer;
i:byte;
begin
count:=0;
isbn:=AnsiReplaceStr(isbn,'-',''
for i:=10 downto 2 do
count:=count+i*strtoint(isbn[14-i]);
i:=count mod 11;
result:=copy(isbn,4,9);
case i of
0: result:=result+inttostr(0);
10: result:=result+'X';
else result:=result+inttostr(11-i);
end;
end;
解决方案 »
- 请问字符串SHL左移后怎么还原?
- Delphi组件开发过程中碰到的怪问题
- 把后台的存储过程放在前台写,怎么写?>需要什么控件?如/....(因为我想把sql改成access)
- 如何实现文件的移动
- 一个让我疑惑的问题!相信对大家有帮助!
- 怎样把excel导入到数据库
- 从SQL SERVER 7.0 导出数据至SQL SERVER 2000出现的问题!
- 用mediaplayer播放AVI.WAV文件
- 为什么?为什么没有人关注我的问题?
- 如何在组件中的自身消息添加代码?
- 关于application.messagebox的焦点问题
- 怎么将Treeview.Items.Item[i].data的值赋给一个record类型的变量啊?
我只知道,string也可以当做数组用的
取第Position个字符(从1开始,Position须小于等于Length(String))。
var str:string;
str:='abc';
showmessage(str[1]);//显示a
可以看成是一个一维数组小标为i的值