Delphi怎么读出一段字节数值中的几个字节的十进制值

[kendychong]

比如现在有这样的字节数组
D1|52|00|00|10|00|00|00|
前面四个字节是一个字段，我怎么读出他的十进制值？
请高手帮帮

[jadeluo]

例如:

var
  A : array[0..7] of Byte;
  i : Integer;
begin
  A[0] := $D1;
  A[1] := $52;
  A[2] := $00;
  A[3] := $00;
  A[4] := $10;
  A[5] := $00;
  A[6] := $00;
  A[7] := $00;

  i := PInteger(@A[0])^;
  ShowMessage(IntToStr(i));

  i := PInteger(@A[4])^;
  ShowMessage(IntToStr(i));
end;