请教关于使用Move函数后的字节问题

Question

有如下结构：
  P = record 
    use1: byte;=1
    use2: byte;=1
    low1: LongWord;=0
    low2: LongWord;=0
    k1: Word;=1
    k2: Word;=100
  end;message:array[0..140] of byte
使用Move函数：
move(p, message, sizeof(p));
字节Message的字节数为16,应该为14才对呀,请大家帮帮忙!
谢谢

Answer 1

Object Pascal的记录缺省是以双字对齐的，所以其大小是4的整倍数，使用
P = packed record
  ...
end;
可以为取消缺省方式，而为实际的长度