您所在位置：主题：[转帖]Delphi的结构体，共用体和位域的等效实现
荣超大牛
[专家分：0] 发布于 2011-04-18 22:30:00
结构体：就是DELPHI的packed record，packed必须要，不然不是按byte对齐。
共用体：其实也就是absolute关键字的使用，如下
procedure TForm1.Button2Click(Sender: TObject);
type
TRGB = packed record //结构体
R: Byte;
G: Byte;
B: Byte;
A: Byte;
end;
var
rgbPack: TRGB;
rgbData: Integer absolute rgbPack; //共享内存单元
begin
rgbData := $AA0080FF;
ShowMessage(IntToStr(rgbPack.R) + ',' + IntToStr(rgbPack.G) + ',' + IntToStr(rgbPack.B));
end;
位域就没辙了，没有简单的方法，还是写shr,shl然后再用and去进行位与来实现吧。
本文摘自: 编程十万个为什么(http://www.bcwhy.com) 详细出处请参考：http://www.bcwhy.com/thread-202-1-1.html
共用体：其实也就是absolute关键字的使用，如下
procedure TForm1.Button2Click(Sender: TObject);
type
TRGB = packed record //结构体
R: Byte;
G: Byte;
B: Byte;
A: Byte;
end;
var
rgbPack: TRGB;
rgbData: Integer absolute rgbPack; //共享内存单元
begin
rgbData := $AA0080FF;
ShowMessage(IntToStr(rgbPack.R) + ',' + IntToStr(rgbPack.G) + ',' + IntToStr(rgbPack.B));
end;
位域就没辙了，没有简单的方法，还是写shr,shl然后再用and去进行位与来实现吧。
本文摘自: 编程十万个为什么(http://www.bcwhy.com) 详细出处请参考：http://www.bcwhy.com/thread-202-1-1.html