Mapa de Caracteres Windows
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
Curtidas 0
Respostas
Nasguone
11/09/2008
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;
GOSTEI 0
Wdrocha
11/09/2008
Bom dia.....mt obrigado.....
me ajudou perfeitamente...
Flw....
me ajudou perfeitamente...
Flw....
GOSTEI 0