求助：byte数组读取问题

Question

比如我要从28位开始读取2个字节转成整形，从34开始读取4个字节转成整形，该如何处理。

Answer 1

c : array[0..49] of byte;
idx : integer;
---------
result := 0;
for idx := 27 to 28 do
begin
  result := (result shl 8) or c[idx];
end;
//c : 改为byte数组,nDigits为长度
function Calculate(c: PChar; nDigits: Integer): Integer;
  var n : Integer;
begin
  Result := 0;
for n := 0 to nDigits - 1 do
Result := ( Result shl 8 ) or  Byte(c[n]);
end;

Answer 2

var
 CBS : array [0..99] of Byte;
  n1 : SmallInt;
  n2 : integer;
begin
  ...
  n1 := PSmallInt(@CBS[27])^; //28位开始读取2个字节转成整形
  n2 := PInteger(@CBS[33])^;  //从34开始读取4个字节转成整形

Answer 3

非常感谢  kiboisme！！！！结贴！