delphi 关于 "高位" 与 "低位"


本文整理自网络,侵删。

 本话题会涉及到: Lo、Hi、HiByte、LoWord、HiWord、MakeWord、MakeLong、Int64Rec
--------------------------------------------------------------------------------

譬如有一个 Cardinal 类型的整数: 1144201745
其十六进制的表示是: $44332211
其二进制表示是: 01000100 00110011 00100010 00010001
我们说 Cardinal 是 32 位的整数, 这里的位是指 "二进制的位数", 不信你数数.

我们需要重点面对的是十六进制, 不管是几进制的数在编译成汇编代码时都是用十六进制表示, 因为它最直观;
我们用十六进制来分析, 也是因为它的直观.

怎么直观的? Cardinal 有 32 位, 每 8 位一个字节, 共 4 个字节;
上面的例数分成字节就是: $44、$33、$22、$11, 这明显比二进制简洁、比十进制直观.

其中的 $11 是最低位的字节、$44 是最高位的字节(每字节对应十六进制的两位).
有时我们需要获取其中某个字节或某两个字节, 这虽然用位运算也不难, 但还是有了诸多函数:
--------------------------------------------------------------------------------

Lo //获取例数中的 $11
Hi //获取例数中的 $22
LoWord //获取例数中的 $2211
HiWord //获取例数中的 $4433
--------------------------------------------------------------------------------

其中的 Hi 好像有点费解, 为什么获取的不是 $44 而是 $22 呢?
这样理解吧: Hi 获取的是 Lo(获取)的上一个字节.

HiByte 和 Hi 基本一样, 如果参数是 16 位的 Word 类型, 用 HiByte 会更好些(中间会省去一个转换过程).

其中的 HiWord 是个函数, 但 LoWord 并不是个函数, 它是 Word 类型的重命名.
也就是说 LoWord(num) 等价于 Wrod(num), 这不是类型转换吗?
是的, 所以像 Lo(num) 也可以用 Byte(num) 来代替.
--------------------------------------------------------------------------------

用代码总结一下:
--------------------------------------------------------------------------------

var
num: Cardinal;
b1,b2,b3,b4: Byte;
w1,w2: Word;
begin
num := $44332211;
w1 := Word(num);
w2 := HiWord(num);
ShowMessageFmt('w1:%x; w2:%x', [w1,w2]);//w1:2211; w2:4433

b1 := Lo(num);
b2 := Hi(num);
b3 := Byte(w2);
b4 := HiByte(w2);
ShowMessageFmt('b1:%x; b2:%x; b3:%x; b4:%x', [b1,b2,b3,b4]);//b1:11; b2:22; b3:33; b4:44
end;
--------------------------------------------------------------------------------

下一个话题: 我们有时也需要进行上面的反操作, 譬如:
把两个 Byte 合成为一个 Word;
把两个 Word 合成一个 Cardinal;
把两个 Cardinal 合成一个 Int64;
把四个 Byte 合成一个 Cardinal;
把四个 Word 合成一个 Int64 等等

上面说的 Cardinal 也可以是 Integer 或 DWORD.

完成这种工作也有不少函数:
MakeWord、MakeLong、MakeWParam、MakeLParam、MakeLResult、MAKELCID 等等.

仅就 MakeWord、MakeLong 举例:
--------------------------------------------------------------------------------

var
num: Cardinal;
b1,b2,b3,b4: Byte;
w1,w2: Word;
begin
b1 := $11;
b2 := $22;
b3 := $33;
b4 := $44;

w1 := MakeWord(b1, b2);
w2 := MakeWord(b3, b4);
ShowMessageFmt('w1:%x; w2:%x', [w1,w2]);//w1:2211; w2:4433

num := MakeLong(w1, w2);
ShowMessageFmt('num:%x', [num]);//44332211
end;
--------------------------------------------------------------------------------

有没有把两个 Integer 合成为 Int64 的函数呢?
没有, 当然可以写一个; 不过有更方便的处理方式, 那就是 Int64Rec 结构.

举例如下:
--------------------------------------------------------------------------------

var
n1,n2: Cardinal;
num64: Int64;
rec: Int64Rec;
begin
n1 := $44332211;
n2 := $AABBCCDD;

rec.Lo := n1;
rec.Hi := n2;

num64 := Int64(rec);
ShowMessage(IntToHex(num64, 0)); //AABBCCDD44332211
end;
--------------------------------------------------------------------------------

Int64Rec 更多用于反向操作:
--------------------------------------------------------------------------------

var
n1,n2: Cardinal;
num64: Int64;
begin
num64 := $AABBCCDD44332211;

n1 := Int64Rec(num64).Lo; //或 n1 := Cardinal(num64);
n2 := Int64Rec(num64).Hi;

ShowMessageFmt('n1:%x; n2:%x', [n1,n2]);//n1:44332211; n2:AABBCCDD
end;

相关阅读 >>

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi 10.2 ide界面

Delphi 写一个可拖动的 tshape

Delphi 屏幕渐变效果的源代码

Delphi opentextfiledialog用法

Delphi repeat until 随机插入

Delphi 四舍五入取整函数

Delphi 如何快速读取非常大的文本文件

dekphi 智能《疯狂刷新》辅助工具v3.1更新开源

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...