请教一个简单的问题，关于字符串

Question

先将字符串拆成一个个字符（COPY函数），然后取ASCII值，好象没有现成的函数

Answer 1

a := 0;
for i := 1 to Length(str) do
  a := a + Ord(str[i]);
// now a is the result

Answer 2

var sum: integer;
sum:=0;
for i:=1 to length(str) do
begin
  sum:=sum+ord(str[i]);
end;

Answer 3

a := 0;
for i := 1 to Length(str) do
  a := a + Ord(str[i]);
// now a is the result

Answer 4

AscSum:=0;
for I:=0 to Length(Str) do
AscSum:=AscSum+Ord(Str[I]);

Answer 5

var
  str:string;
  i,j,sum:  integer;
begin
  str:= 'string';
  i:=0;
  sum:= 0;
  j:=length(str);
  for i :=0  to j do
  begin
    sum:=sum+ ord( str[i])
  end;end;