求助！奇怪的长度问题 ( 积分: 15 )

type
pTMsgHeader=^TMsgHeader;
TMsgHeader = record
p1Word;
p2:integer;
p3:word;
p4:word;
p5:word;
p6:integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(SizeOf(TMsgHeader)))
end;

这样显示长度是20
应该是18才对啊！怎么回事哦？

自己解决了。。。浪费分啦

试试 TMsgHeader = packed record ..

接受答案了.