如何获得按键的健值和数值所对应的按健。(10分)

如何获得者如何获得按键的健值和数值所对应的按健。
KEYVALUE ——KEY
KEY——KEYVALUE

gz

在formkeydown事件里做showmessage(inttostr(key))看看!
昨天我剛問過。。。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1055076

取得按键值如下，反过来还没弄出来
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption:=inttostr(key);
end.

取得按键值可以按以上方法，
相反用
chr(65)

S := S + 'The "keyvalue" is ' + IntToStr(Ord('key')
S := S + 'The "key" is ' + chr('keyvalue')

好像问题不那么简单！
请看例：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
begin
i:=0;
//英文字母
if (key>80) and (key<123) then
if Shift<>[ssShift] then i:=32;
//数字及上档符号
if (key=49) or ((key>50) and (key<54)) or (key=57) then
if Shift=[ssShift] then i:=-16;
if (key=48) then
if Shift=[ssShift] then i:=-7;
if (key=50) then
if Shift=[ssShift] then i:=14;
if (key=54) then
if Shift=[ssShift] then i:=40;
if (key=55) then
if Shift=[ssShift] then i:=-17;
if (key=56) then
if Shift=[ssShift] then i:=-14;
label1.Caption:=inttostr(key+i);
label2.Caption:=chr(key+i);
end;

接受答案了.