结构体:就是DELPHIpacked recordpacked必须要不然不是按对齐

共用体:其实也就是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去进行位和来实现吧