packed record

Question

用这个函数：Send(const Cmd: PChar; const Len: integer): Boolean;
发送数据CurCmd：
//命令定义
type
  TCmd = packed record
    FHead: Array[0..1] of Byte;
    FADDR: Byte;
    FDATA: Array[0..3] of Byte;
    FTail: Byte;
end;
var
  CurCmd: TCmd;该怎么发送。
要求：
最好直接发送，不要再将CurCmd中的数据一个个地移到Buffer: Array[0..7] 中然后
Send（Buffer， 8）

Answer 1

p:pchar;
p:=pChar(@CurCmd);
Send(p^,sizeof(TCmd));

Answer 2

Send（@curcmd， 8）
收工

Answer 3

p:pchar; 
p:=pChar(@CurCmd); 
Send(p^,sizeof(TCmd));
 太快了。

Answer 4

Send(pChar(@CurCmd)^,sizeof(TCmd));