var
t,i:Integer;
P: Pointer;
begin
i := 100;
T := Cardinal(@i);
P := Pointer(T);
ShowMessage(IntToStr(Pinteger(P)^)); //转为整型指针再还原
end;
var
t,i:Integer;
P: Pointer;
begin
i := 100;
T := Cardinal(@i);
P := Pointer(T);
ShowMessage(IntToStr(Pinteger(P)^)); //转为整型指针再还原
end;