Array
(
)

Verificar codigo ascii de uma letra

Kroki
   - 14 set 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.


Willian
   - 14 set 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:

procedure TForm1.Button1Click(Sender: TObject);
var
Letra : Char ;
begin
Letra := ´A´;
ShowMessage(IntToStr(Ord(Letra)));
end;

Acho que é isso que você precisa.

Se não resolver, avisa!!!!