可变记录类型

  在阅读RTTI的源码的时候，我看到TTypeData结构，是个可变记录类型，而且是采用packed record的类型，因此我试着写了下record和packed record有啥不同。

  unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm3 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementation{$R *.dfm}type TRec = record nID: Integer; case Integer of 0: (s:string[10]); 1: (I:Integer); end; TRec1 = packed record nID: Integer; case Integer of 0: (s:string[10]); 1: (I:Integer); end;procedure TForm3.btn1Click(Sender: TObject);begin showmessage(inttostr(SizeOf(TRec)) + ':' + inttostr(Sizeof(TRec1)));end;end.

  会看到显示的结果是第一个大小为16，第二个大小为15，这是因为，window分配内存是以四字节一次分配的，而采用了packed表示采用字节分配，所以TRec1的sizeof会是15