熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

Delphi的結構體,共用體和位域的等效實現

2013-11-23 17:39:56  來源: 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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.