• Jueves 28 de Marzo de 2024, 09:35

Autor Tema:  Caracter -> Codigo Ascii  (Leído 1150 veces)

Anonymous

  • Visitante
Caracter -> Codigo Ascii
« en: Domingo 7 de Noviembre de 2004, 03:30 »
0
Cómo puedo obtener el código ascii de un caracter...?

Amilius

  • Miembro HIPER activo
  • ****
  • Mensajes: 665
    • Ver Perfil
Re: Caracter -> Codigo Ascii
« Respuesta #1 en: Lunes 8 de Noviembre de 2004, 04:24 »
0
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.

Anonymous

  • Visitante
Re: Caracter -> Codigo Ascii
« Respuesta #2 en: Lunes 8 de Noviembre de 2004, 18:11 »
0
Gracias por la respuesta Amilius, lo he probado y funciona excelente. Tendré en cuenta los consejos...