为了加快硬件的访问速度, 编译器通常要使用"数据对齐", 譬如:
//下面结构中: SizeOf(TRec) = 6; 因为 b 在这里也要占 2 字节. TRec = record a: Word; b: Byte; c: Word; end;下面是一个测试:
//下面结构中: SizeOf(TRec) = 16; 这里的 a 和 b 共占了 8 个字节. TRec = record a: Byte; b: Byte; c: Double; end;
//下面结构中: SizeOf(TRec) = 8; 这里的 a 和 b 共占了 4 个字节. TRec = record a: Byte; b: Byte; c: Integer; end;
//下例使用了结构压缩(压缩后就对不齐了), 它们的大小会分别是: 2、1、8 字节 TRec = packed record a: Word; b: Byte; c: Double; end;
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type rec1 = record x: Integer; y: Integer; z: Integer; end; rec2 = record x: Integer; y: Byte; z: Integer; end; rec3 = packed record x: Integer; y: Byte; z: Integer; end; procedure TForm1.FormCreate(Sender: TObject); const DashLine = '----------------------------------'; var r1: rec1; r2: rec2; r3: rec3; begin Memo1.Align := alClient; Memo1.Clear; Memo1.Lines.Add(Format('rec1 结构的大小是: %d', [SizeOf(rec1)])); Memo1.Lines.Add(Format('rec2 结构的大小是: %d', [SizeOf(rec2)])); Memo1.Lines.Add(Format('rec3 结构的大小是: %d', [SizeOf(rec3)])); Memo1.Lines.Add(DashLine); Memo1.Lines.Add(Format('r1 中 x 的地址是: %d', [Integer(@r1.x)])); Memo1.Lines.Add(Format('r1 中 y 的地址是: %d', [Integer(@r1.y)])); Memo1.Lines.Add(Format('r1 中 z 的地址是: %d', [Integer(@r1.z)])); Memo1.Lines.Add(DashLine); Memo1.Lines.Add(Format('r2 中 x 的地址是: %d', [Integer(@r2.x)])); Memo1.Lines.Add(Format('r2 中 y 的地址是: %d', [Integer(@r2.y)])); Memo1.Lines.Add(Format('r2 中 z 的地址是: %d', [Integer(@r2.z)])); Memo1.Lines.Add(DashLine); Memo1.Lines.Add(Format('r3 中 x 的地址是: %d', [Integer(@r3.x)])); Memo1.Lines.Add(Format('r3 中 y 的地址是: %d', [Integer(@r3.y)])); Memo1.Lines.Add(Format('r3 中 z 的地址是: %d', [Integer(@r3.z)])); Memo1.Lines.Add(DashLine); Memo1.Lines.Add('从地址间隔中可见端倪'); end; end.
//测试效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/124874/o_83172.png)
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步