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

结构体就是DELPHI的packed recordpacked必须要不然不是按byte对齐

共用体其实也就是absolute关键字的使用如下

procedure TFormButtonClick(Sender: TObject);

type

TRGB = packed record //结构体

R: Byte;

G: Byte;

B: Byte;

A: Byte;

end;

var

rgbPack: TRGB;

rgbData: Integer absolute rgbPack; //共享内存单元

begin

rgbData := $AAFF;

ShowMessage(IntToStr(rgbPackR) + + IntToStr(rgbPackG) + + IntToStr(rgbPackB));

end;

位域就没辙了没有简单的方法还是写shrshl然后再用and去进行位与来实现吧