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 .

[Mick]

Mas simple seria:

Valor := Ord( texto[4] );

Saludos

[roman]

Empezado por Mick

Mas simple seria:

Valor := Ord( texto[4] );

Je, je, tienes toda la razón

// Saludos

[Tecnic2]

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.

[Mick]

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

[Tecnic2]

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

[crlsktr]

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

[roman]

Chr

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

// Saludos

[rgstuamigo]

Chr

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

Tambien en delphi se puede hacer:

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

Saludos..