数据对齐

《Delphi 算法与数据结构》学习与感悟[2]: 数据对齐

作者：万一  来源：博客园 

为了加快硬件的访问速度, 编译器通常要使用"数据对齐", 譬如:

---

//下面结构中: 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.

 

//测试效果图: