1,593
社区成员
发帖
与我相关
我的任务
分享
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;