字节数组与结构体的转换

  还是一个原则，在此不再详述！

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;