Character code

Character code ( caractere ) : Integer

Parâmetro	Tipo		Descrição
caractere	Text	→	Caractere para o qual você quer conseguir o código
Resultado	Integer	←	Código dos caracteres

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