como obtener el codigo ascii de una cadena?

[usuario87]

trate de obtener el codigo ascii de una letra que esta dentro de una variable cadena de la siguinte forma:

Código Delphi [-]
 
var
  Cadena: string;
  Cod: DWORD;
begin
  cadena:='a';
  Cod:=Ord(Cadena);
  Form1.Caption:=IntToStr(Cod);

y me sale error : incompatible types

[usuario87]

hola, disculpen ya lo solucione de esta forma:

Código Delphi [-]

var
  Cadena: string;
  Cod: BYTE;
begin
  SetLength(Cadena,1);
  //cadena:='a';
  Cod:=Ord(Cadena[1]);
  Form1.Caption:=IntToStr(Cod);

[Gerson12]

amigo disculpa que tienes pensado hacer xD si no fuera mucha molestia

[roman]

Empezado por usuario87

hola, disculpen ya lo solucione de esta forma:


var
Cadena: string;
Cod: BYTE;
begin
SetLength(Cadena,1);
//cadena:='a';
Cod:=Ord(Cadena[1]);
Form1.Caption:=IntToStr(Cod);

Hola, bienvenido a los foros del ClubDelphi. En lo sucesivo, te pido que uses las etiquetas adecuadas para tu código. En esta caso, podrías haber usado la etiqueta [delphi]

Por otra parte, no es necesario usar SetLength, basta que pongas:

Código Delphi [-]
Cod := Ord(Cadena[1]);

// Saludos

[Neftali]

Recuerda utilizar TAG's cuando escribas código. Se lee mucho mejor.
Un saludo.

[usuario87]

gracias, no olvidare poner las etiquetas xD.