Fórum Mapa de Caracteres Windows #363780
11/09/2008
0
Boa tarde pessoal...
tow com um dúvida....é o seguinte...
alguém sabe como eu faço para pegar o número de uma letra no mapa de caracteres do Windows...
Por exemplo....se eu passar a letra ´A´ como parâmetro o programa me retornar o número da mesma no mapa de caracteres...
Obrigado....
Vlw..
tow com um dúvida....é o seguinte...
alguém sabe como eu faço para pegar o número de uma letra no mapa de caracteres do Windows...
Por exemplo....se eu passar a letra ´A´ como parâmetro o programa me retornar o número da mesma no mapa de caracteres...
Obrigado....
Vlw..
Wdrocha
Curtir tópico
+ 0
Responder
Posts
12/09/2008
Nasguone
o mapa de caracteres trabalha com hexadecimal se não me engano!!
veja o exemplo abaixo se te ajuda...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//recebe o codigo da tecla em decimal
Label1.Caption :=
Format(´Tecla em Decimal: ¬d´, [key]);
//recebe o codigo da tecla e hexadecimal
Label2.Caption := Format(´Tecla em Hexadecimal: U+00¬x´,[key]);
//ShowMessage(´Tecla em Hexadecimal: ´+Char(ORD(Key))+´ U+´+FloatToStrF((key),ffNumber,2,0));
end;
veja o exemplo abaixo se te ajuda...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//recebe o codigo da tecla em decimal
Label1.Caption :=
Format(´Tecla em Decimal: ¬d´, [key]);
//recebe o codigo da tecla e hexadecimal
Label2.Caption := Format(´Tecla em Hexadecimal: U+00¬x´,[key]);
//ShowMessage(´Tecla em Hexadecimal: ´+Char(ORD(Key))+´ U+´+FloatToStrF((key),ffNumber,2,0));
end;
Responder
Gostei + 0
12/09/2008
Wdrocha
Bom dia.....mt obrigado.....
me ajudou perfeitamente...
Flw....
me ajudou perfeitamente...
Flw....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)