学步园

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

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

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