16,747
社区成员




var
pi : PInteger;
begin
pi := PInteger(Integer(@pi) + 400);
pi^ := 100;
ShowMessageFmt('%x - %x', [Integer(pi), pi^]);
end;
var
pi : PInteger;
begin
pi := PInteger($123456);
pi^ := 5; //如果$123456是个非法地址, 程序就会崩溃.
end;