como obtener el codigo ascii de una cadena?

[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