SoloCodigo

Programación General => Delphi => Mensaje iniciado por: Anonymous en Domingo 7 de Noviembre de 2004, 03:30

Título: Caracter -> Codigo Ascii
Publicado por: Anonymous en Domingo 7 de Noviembre de 2004, 03:30

Cómo puedo obtener el código ascii de un caracter...?

Título: Re: Caracter -> Codigo Ascii
Publicado por: Amilius en Lunes 8 de Noviembre de 2004, 04:24

1.- Extraes el caracter a una variable char.
2.- Type casting para tomarlo como entero de 1 byte en este caso: ord
3.- Convertir el entero de 1 byte en una cadena conteniendo el número: Inttostr

MiCaracter:char;
...
MiCaracter:='Y';
showmessage('Caracter:'+MiCaracter+' ASCII:'+inttostr(ord(MiCaracter)));

Nota: los códigos varían entre sistemas operativos a partir del 128 al 255. Existen también caracteres de 2 bytes "unicode". El procedimiento es similar teniendo cuidado de extraer los 2 bytes que corresponden, pasarlos a tipos enteros y convertirlos a representación en cadena con el inttostr.

Título: Re: Caracter -> Codigo Ascii
Publicado por: Anonymous en Lunes 8 de Noviembre de 2004, 18:11

Gracias por la respuesta Amilius, lo he probado y funciona excelente. Tendré en cuenta los consejos...