大家好! 請問一下,ASCII碼轉換為16進制數.如0-->30;   1-->31... A-->41 我這樣寫可以:  Label1.Caption := IntToHex(ord('0'),2);  // 30 但是  Label1.Caption := IntToHex(ord(Edit1.text),2); 注:Edit1.text := '0' ; 編譯時出現錯誤: [Error] Incompatible types 請問如何解決? '0'與Edit1.text不都是字符型嗎？怎麼不可以用啊？ 不好意思，新手上路，請大家指導一下吧，感謝!

改成如下試試:

 Label1.Caption := IntToHex(Ord(Edit1.Text[1]), 2);

-- 分擔可以輕省, 分享帶來喜樂!

您好: 因為Ord是抓'0'的ascii,而edit.text是個字串因此無法轉換. 以下範例讓您參考一下 procedure TForm1.Button1Click(Sender: TObject); var c:char; begin c:=Edit1.Text[1];; Label1.Caption := IntToHex(ord(c),2); end; 發表人 - supman 於 2005/04/18 09:58:59

感謝hagar兄,supman大大的解答 謝謝!