还是一个原则,在此不再详述! type PData=^TData; TData = packed record a: Integer; b: Word; end; var bs: array[0..5] of Byte; data: PData; begin FillChar(bs, Length(bs), 0); bs[0] := $10; bs[1] := $27; data := @bs[0];//把字节数组的首址传给结构体 ShowMessage(IntToStr(data^.a)); //系统帮我们捆绑读取 end;