Código Delphi [-] var p : PInteger; begin p := PInteger($080000); // o p := Ptr($080000); showmessage(inttostr(p^)); // Access error read memory $080000 end;
var p : PInteger; begin p := PInteger($080000); // o p := Ptr($080000); showmessage(inttostr(p^)); // Access error read memory $080000 end;