5,388
社区成员
发帖
与我相关
我的任务
分享
Var
Arr: Array[1..4] Of Byte;
I, J: Integer;
APo: Pointer;
begin
for I:= 1 to 4 do
ListBox1.Items.Add(Format('数组第%d个元素的地址:%d',[ I, (Integer(@Arr[i]))]));
J := $01020304;
For I:= 0 to 3 do
ListBox1.Items.Add(Format('整数($01020304;)第%d个字节的内容:%d',[ I, Byte(Pointer(Integer(@J)+ I)^)] ));
end;