Convertir caracter a codigo ASCII

[Tecnic2]

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.

[roman]

Ord

// Saludos

[Tecnic2]

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.

[roman]

Empezado por Tecnic2

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

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

[roman]

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

[Tecnic2]

Lo he probado y me ha funcionado.

Muchas gracias por responder tan rápidamente .