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
Propriedades
Número do comando | 91 |
Thread-seguro | ✓ |