为了加快硬件的访问速度, 编译器通常要使用"数据对齐", 譬如:
//下面结构中: 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.

//测试效果图:


posted on 2008-03-17 18:28  万一  阅读(3942)  评论(12编辑  收藏  举报