Convertir caracter a codigo ASCII
 

Hola a todos,

En Visual Basic, para convertir un caracter cualquiera a su representación a código ASCII se utiliza la funcion ASC()

Cuál es su traduccion Delphi ?

Muchas gracias.

Ord

// Saludos

Error con Ord()
 

He utilizado la funcion Ord(), pero me encuentro con lo siguiente:

valor := Ord(MidStr(texto, 4, 1)); -> El compilador dice "Incompatible types".
valor := Ord('c'); -> Funciona.

Nota: valor es de tipo double, texto es un string.

¿ Por qué el compilador no acepta la primera instruccion ?

Gracias.

Porque el argumento de Ord debe ser un tipo ordinal (como Char) mientras que MidStr regresa un tipo String. Dado que la función MidStr se valúa hasta la ejecución el compilador no tiene manera de saber que sólo vas a extraer un caracter.

Lo que puedes hacer es asignar el resultado de MidStr a una variable String temporal S y pasar a ord el primer caracter:

Ord(S[1]);

// Saludos

Bueno, en realidad no necesitas la variable temporal, puedes hacerlo directamente:

valor := Ord(MidStr(texto, 4, 1)[1]);

pero se ve un poco feillo ;)

// Saludos

Ya me funciona Ord()
 

Lo he probado y me ha funcionado.

Muchas gracias por responder tan rápidamente :D .

Mas simple seria:

Valor := Ord( texto[4] );

Saludos

Je, je, tienes toda la razón :)

// Saludos

Gracias a todos
 

Si, veo que será mas facil, pero lo del ejemplo era eso, un ejemplo. En mi aplicacion, el 4 se cambia por una variable que se incrementa en funcion de un For.

Gracias.

Que el 4 sea una variable no impide que puedas usar la forma sencilla, que por otra parte es la forma normal que usa todo el mundo ya que es la mas rapida en tiempo de ejecucion, de hacer lo que pides. Usar MidStr es infinitamente mas lento que acceder directamente al caracter en concreto del string.

Saludos

Claro, ya veo.
 

Ah, pues muchas gracias, lo tendré en cuenta.

al revés?
 

me pueden decir como hacer lo contrario osea pasar un ascii a caracter?

Chr

Ej: Chr(65) --> 'A'

// Saludos

Tambien en delphi se puede hacer:

Código Delphi [-]
#65-->'A'
o tambien haciendo casting
Char(65)--->'A'

Saludos..;)