16,748
社区成员
发帖
与我相关
我的任务
分享请问delphi中怎样计算字符串的ASC的累加值
var
name:string;
i,len,int,sum:integer
begin
name:=edit1.text;
len:=length(name);
for i:=0 to len do
begin
int:=ord(name[i]);
sum:=int+sum;
end;
edit2.text:=inttostr(sum);
end.
这段计算名字的代码有什么不对
我老是弄不对。。
name:string;
i,len,int,sum:integer
begin
name:=edit1.text;
len:=length(name);
for i:=0 to len do
begin
int:=ord(name[i]);
sum:=int+sum;
end;
edit2.text:=inttostr(sum);
end.
这段计算名字的代码有什么不对
我老是弄不对。。
...全文
请发表友善的回复…
发表回复
