cadena de caracteres a ascii

[jonmendi]

Hola,
lo que quiero haer es muy silmple:
convertir una cadena de caracteres en sus valores ascii e ir sumandolos.
Yo he probado con:

  
  for i:= 1 to length(cadena) DO
	total:=total + (ord(ansimidstr(cadena, i, 1)));

Me da que son tipos incompatibles. El problema está (creo yo) que el ord necesita un char y yo le doy un string, pero no se como hacerlo.
¿Alguien me sabría ayudar?
Gracias
Jon

[dec]

Hola,

Código Delphi [-]
 var
   i: integer;
   cadena: string;
   total: integer;
 begin
   total := 0;
   cadena := 'Bienvenido al ClubDelphi';
   for i := 0 to Length(cadena) do
     total := total + Ord(cadena[i]);
   ShowMessage(IntToStr(total));
 end;

[jonmendi]

muchisimas gracias me ha servido perfecto.
Solo comentarte que he cambiado el inicio del for a 1 to length, sino da un range check error.

Muchas gracias de nuevo.
Jon

[dec]

Hola,

Originally Posted by jonmendi

Solo comentarte que he cambiado el inicio del for a 1 to length, sino da un range check error.

Es curioso: a mí no me daba ningún error... ¿a qué puede ser debido?

Actualización: Llevas razón jonmendi: lo que ocurre es que yo no tenía marcada la casilla "Range Checking" de las opciones a tener en cuenta al compilar el proyecto. Si la marco se produce el error que dices y la solución parece ser la que refieres.

[[Crandel]]

Recuerden que las cadenas de caracteres se pueden acceder como un vector de caracteres que empiesa con el indice 1 no en cero como en otros lenguajes, a eso se debe el error.

Esro se debe a que antes se almacenaba en el tamaño en el lugar cero.

[dec]

Hola,

Originally Posted by Crandel

Recuerden que las cadenas de caracteres se pueden acceder como un vector de caracteres que empiesa con el indice 1 no en cero como en otros lenguajes, a eso se debe el error.

Muchas gracias Crandel. Por mi parte lo agradezco añadiendo además este mensaje por ver si se me añade también a mí en la memoria lo que comentas. Tengo que ampliarme la RAM, que la que tengo ya esta viejita y gastada. Los años, que no pasan en valde, como suele decirse...