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

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