請問 一下為什麼下面這段程式不能取得y變數的位址 那我又該如何寫呢 procedure TForm1.Button1Click(Sender: TObject); var x,y:integer; p:^string; j:string; q:string; begin y:=200000; //PChar(s)^ s:string x:=3123000; y:=x y; edit2.Text:=inttostr(y); p:=@y; //$403617 j:=p^; q:=copy(j,2,2); edit1.Text:=q; end;

^string 的意思，是把它指向的地方看成是個字串 而你的 p 卻是指向 y，y 的值卻是數值 這樣當然得不到你要的結果    改成這樣吧

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y: integer;
  p: integer;
  q: string;
begin
  y := 200000;
  x := 3123000;
  y := x y;
  Edit1.Text := IntToStr(y);
  p := integer(@ y);
  q := IntToStr(p);
  Edit1.Text := q;
end;