線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1639
推到 Plurk!
推到 Facebook!

如何把二个16进制数相加?

答題得分者是:pcplayer99
luowy651
高階會員


發表:257
回覆:313
積分:114
註冊:2003-04-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-03-28 17:40:45 IP:219.82.xxx.xxx 訂閱
各位大大好
比如我有二个16进制的数,分别是01000000,08000000,我想把这二个16进制数相加并把结果放在edit1.text中显示出来,应该怎么写code?

ps: 我想要的结果是09000000,而不是9000000,也就是说,要始终保持8位长度
編輯記錄
luowy651 重新編輯於 2009-03-28 17:44:51, 註解 無‧
boss.tw
高階會員


發表:15
回覆:109
積分:194
註冊:2005-05-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-03-28 22:37:14 IP:122.116.xxx.xxx 訂閱

[code cpp]
DWORD N1= 0x100000, N2= 0x80000;
AnsiString temp = "";
temp.sprintf("X", N1 N2);
Edit1->Text = temp;

[/code]
luowy651
高階會員


發表:257
回覆:313
積分:114
註冊:2003-04-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-03-28 23:47:53 IP:58.100.xxx.xxx 訂閱
感谢boss.tw的关注
小弟初学,能否写得更有操作性一些?
pcplayer99
尊榮會員


發表:146
回覆:790
積分:632
註冊:2003-01-21

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-03-29 14:47:08 IP:121.15.xxx.xxx 訂閱
对 delphi 来说,数字就是数字,进制不同,只是在 SOURCE 里的表达方式不同。比如16进制的是 $2,  比如 $A

所以,你完全可以直接把两个16进制数字相加,比如 $2 $A。都是整数相加而已,和什么进制没有关系。比如:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, k: Integer;
begin
i := $A;
j := $23;
k := i j;
Label1.Caption := IntToStr(k);
end;

这里显示的是两个16进制整数相加后的整数的10进制格式45;如果想显示16进制格式的字符串,则可以这样: Label2.Caption := IntToHex(K, 8);

你可以去查 IntToHex 的 Help
系統時間:2024-05-07 14:58:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!