ASCII10ADD是計算機函式。
基本介紹
- 外文名：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;
