請問10進位的數值如何轉換為16進位 |
|
答題得分者是：aquarius
|
|
lungwolf
一般會員   發表：7 回覆：13 積分：4 註冊：2003-05-08 發送簡訊給我 |
|
|
sos_admin
版主  發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
1、10-〉16
IntToHex 将 Int 转为 Hex.
2、16-〉10[转贴]
function HexCharToInt(HexToken : char):Integer;
begin
{if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);
{ use lowercase aswell } Result:=0;
if (HexToken>#47) and (HexToken<#58) then { chars 0....9 }
Result:=Ord(HexToken)-48
else if (HexToken>#64) and (HexToken<#71) then { chars A....F }
Result:=Ord(HexToken)-65 10;
end;
|
|
aquarius
資深會員 發表：3 回覆：347 積分：330 註冊：2003-05-21 發送簡訊給我 |
|
|
soni
一般會員 發表：17 回覆：29 積分：9 註冊：2003-02-06 發送簡訊給我 |
發表時間：2003-09-17 15:26:58
IP:211.22.xxx.xxx 未訂閱
系統時間：2024-06-03 1:17:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |