Verificar codigo ascii de uma letra

14/09/2004

Como faco para pegar o codigo ascii de uma variavel?
Exemplo;
Var
s:string;
x:integer;
s:=´a´;
x:=(codigo ascii de ´s´);
valeu a quem ajudar.


Kroki

Respostas

14/09/2004

Willian

A função que retorna o código ASC de uma letra é a função ORD(). O inverso (retorna a letra através do código) é CHR().

Inicie uma nova aplicação, coloque um botão, e dentro, no evento OnClick digite o seguinte código:

[b:442c77b0a6]procedure [/b:442c77b0a6]TForm1.Button1Click(Sender: TObject);
[b:442c77b0a6]var[/b:442c77b0a6]
Letra : Char ;
[b:442c77b0a6]begin[/b:442c77b0a6]
Letra := ´A´;
ShowMessage(IntToStr(Ord(Letra)));
[b:442c77b0a6]end;[/b:442c77b0a6]

Acho que é isso que você precisa.

Se não resolver, avisa!!!!


Responder Citar