Verificar codigo ascii de uma letra
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.
Exemplo;
Var
s:string;
x:integer;
s:=´a´;
x:=(codigo ascii de ´s´);
valeu a quem ajudar.
Kroki
Curtidas 0
Respostas
Willian
14/09/2004
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!!!!
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!!!!
GOSTEI 0