Character code

Character code ( caractere ) : Integer

Descrição​

O comando Character code devolve o código Unicode UTF-16 (incluído entre 1 e 65535) de umCaractere.

Se houver mais de um caractere na cadeia, Character code devolve unicamente o código do primeiro caractere.

A função Char é a contraparte de Character code Devolve o caractere designado por um código UTF-16.

Exemplo 1​

Os caracteres em maiúsculas e minúsculas são considerados iguais dentro de uma comparação. Pode utilizar Character code para diferenciar entre os caracteres em maiúsculas e em minúsculas. Portanto, esta linha devolve True:

 ("A"="a")

Por outro lado, esta linha devolve False:

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

Exemplo 2​

Este exemplo devolve o código do primeiro caractere da cadeia "ABC":

 RecupCod:=Character code("ABC") // RecupCod assume o valor 65, o código do caractere de A

Exemplo 3​

O exemplo abaixo testa os retornos de carro e os tabuladores:

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

Quando for executado muitas vezes em textos longos, se executará mais rápido, quando for compilado, se for escrito desta forma:

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

O segundo código é executado mais rápido por duas razões: apenas referencia um caractere por iteração e utiliza comparações de inteiros longos ao invés de comparações de cadeias para testar os retornos de carro e as tabulações. Utilize esta técnica quando trabalhe com códigos comuns tais como CR e TAB.

Ver também​

Char
Símbolos de referência de caracteres

Propriedades​