《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.


 
   




//测试效果图:

---