procedure TForm1.Edit3KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin edit3.Text:=???(Key); end; 上面代碼中有沒有什麼可以將Word類型的Key轉為String類型呢? 因為我想動態設置熱鍵（將得到的熱鍵存入數據庫）有什麼比較好的辦法實現呢？ 交流.學習

------
交流.學習

Edit1.Text := IntToStr(Ord(Key)); --- --<-<-<@

引言: Edit1.Text := IntToStr(Ord(Key)); --- --<-<-<@

Ord():是什麼函數呢？他是用是什麼？ 那又怎麼樣將數據庫中讀出的值轉為Word類型呢 就是我將定義的熱鍵的值存入數據庫 那反過來從數據庫中讀出該值怎判斷是哪個鍵呢？ 交流.學習

1.Ord() 可以查出字元的 ASCII 值 2.以下是 help 內的例子

type
   Colors = (RED,BLUE,GREEN);    var
  S: string;
begin
   S := 'BLUE has an ordinal value of '   IntToStr(Ord(BLUE))   #13#10;
   S := S   'The ASCII code for "c" is '   IntToStr(Ord('c'))    ' decimal';
   MessageDlg(S, mtInformation, [mbOk], 0);
end;

--- --<-<-<@

引言: 1.Ord() 可以查出字元的 ASCII 值 2.以下是 help 內的例子

type
   Colors = (RED,BLUE,GREEN);    var
  S: string;
begin
   S := 'BLUE has an ordinal value of '   IntToStr(Ord(BLUE))   #13#10;
   S := S   'The ASCII code for "c" is '   IntToStr(Ord('c'))    ' decimal';
   MessageDlg(S, mtInformation, [mbOk], 0);
end;

--- --<-<-<@

明白了！謝啦！謝謝你說得這麼詳細！！ 交流.學習