ASCII10ADD
函数功能返回字符串ASCII累加值
函数说明function ASCII10ADD(s: string): string; //取累加值
var i,sum:integer;
begin
sum:=0; for i:=1 to length(s) do
begin
sum:=sum+ord(s[i]);
end;
Result :=inttostr(sum);
end;
function ASCII16ADD(s: string): string; //取累加值
var i,sum:integer;
begin
sum:=0; for i:=1 to length(s) do
begin
sum:=sum+ord(s[i]);
end;
Result :=inttohex(sum,2);
end;