函数功能

函数说明

函数功能

返回字符串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;