DELPHI的结构体，共用体和位域的等效实现

DELPHI的结构体，共用体和位域的等效实现

作者：佚名  来源：中国自学编程网收集整理   发布日期：2008-12-18  

结构体：就是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去进行位与来实现吧。