16,749
社区成员
发帖
与我相关
我的任务
分享
type
Rxxx = record
bPackType :byte;
wPackSize :WORD;
case integer of
0: (pkInfo :HW_PACK_INFO;);
1: (pkAck :HW_PACK_ACK;);
2: (pkCmd :HW_PACK_CMD;);
3: (pkStatus:HW_DVR_STATUS;);
end;
THW_PACK_BODY = class
public
xxx :Rxxx;
constructor Create;
end;
implementation
constructor THW_PACK_BODY.Create;
begin
xxx.wPackSize := sizeof(Rxxx);
end;