《Delphi 算法与数据结构》: 数据对齐

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

---

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

.