cadena de caracteres a ascii
 

Hola,
lo que quiero haer es muy silmple:
convertir una cadena de caracteres en sus valores ascii e ir sumandolos.
Yo he probado con:
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

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;

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

Hola,

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.

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.

Hola,

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... ;)