#1 MicroTip#3 pascal Union 的一个应用
MicroTip#3 pascal Union 的一个应用
// Test in Delphi6 up2
// Wrtten by SkyJacker 2007.03.19
// QQ Discuss Group: 130970

1、通过类型转换，实现获取某个字的高低字节。

之前使用字的移位或 Hi,Lo 来得到，Union 也可以阿。

procedure TFrmTest.btnTest(Sender: TObject);
type
TWordRec = packed record
case Integer of
0: (Lo, Hi: Byte); // 先低字节，后高字节(内存实际存放位置)
1: (Bytes: array [0..1] of Byte); / ..

#1 >>Next Page

Forum:技术板块灌水区 ...
Thread:MicroTip#3 pascal Un ...
Next Thread:CnPackTip#5:Delphi ...

Home
Login

Powered by Discuz!