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去進行位與來實現吧

From:http://tw.wingwit.com/Article/program/Delphi/201311/24855.html