procedure TForm1.Button1Click(Sender: TObject);
const
  i: integer=2;
var
  j: ^integer;
begin
  j := @i;
  j^ := 3;
  showmessage(inttostr(i));
end;
输出了3,不知要让它不行的话,要改编译器的那一项,{$j+} 或{$j-},
不知加那儿
 请指点一下!,谢谢。