Character code

Character code ( unCaracter ) : Integer

Parámetro	Tipo		Descripción
unCaracter	Text	→	Caracter para el cual obtener el código
Resultado	Integer	←	Código del caracter

Descripción

El comando Character code devuelve el código Unicode UTF-16 (incluído entre 1 y 65535) de unCaracter.

Si hay más de un carácter en la cadena, Character code devuelve únicamente el código del primer carácter.

La función Char es la contraparte de Character code. Devuelve el carácter designado por un código UTF-16.

Ejemplo 1

Los caracteres en mayúsculas y minúsculas se consideran iguales en una comparación. Puede utilizar Character code para diferenciar entre los caracteres en mayúsculas y en minúsculas. Por lo tanto, esta línea devuelve True:

 ("A"="a")

Por otra parte, esta línea devuelve False:

(Character code("A")=Character code("a"))

Ejemplo 2

Este ejemplo devuelve el código del primer carácter de la cadena "ABC":

 RecupCod:=Character code("ABC") // RecupCod toma el valor 65, el código del carácter de A

Ejemplo 3

El siguiente ejemplo prueba los retornos de carro y los tabuladores:

 For($vlCar;1;Length(vtText))
    Case of
       :(vtText[[$vlCar]]=Char(Carriage return))
  // Hacer algo
       :(vtText[[$vlCar]]=Char(Tab))
  // Hacer otra cosa
       :(...)
  // ...
    End case
 End for

Cuando se ejecuta muchas veces en textos largos, se ejecutará más rápido, una vez compilado, si se escribe de esta forma:

 For($vlCar;1;Length(vtText))
    $vlCode:=Character code(vtText[[$vlCar]])
    Case of
       :($vlCode=Carriage return)
  // Hacer algo
       :($vlCode=Tab)
  // Hacer otra cosa
       :(...)
  // ...
    End case
 End for

El segundo código se ejecuta más rápido por dos razones: sólo referencia un carácter por iteración y utiliza comparaciones de enteros largos en lugar de comparaciones de cadenas para probar los retornos de carro y las tabulaciones. Utilice esta técnica cuando trabaje con códigos comunes tales como CR y TAB.

Ver también

Char
Símbolos de referencia de caracteres