关于指针的问题：

Question

这样写出错：高手帮我指点一下。
我想把指针里的str值职出来：附值给s;
var
  str:^string;
  s:string;
  i:integer;
begin
   ^str:='aa';
    s:=^str;
end 
（就是想把批针里的值取出来附给一个变量）

Answer 1

procedure TForm1.Button4Click(Sender: TObject);
var
  s: ^string;
begin
  New(s);
  s^ := 'abc';
  ShowMessage(s^);
  Dispose(s);
end;

Answer 2

哦，刚才没看到你的代码，修改如下：
var
  str:^string;
  s:string;
  i:integer;
begin
  New(str);
  str^:='aa';
  s:=str^;
  Dispose(str);
end 

Answer 3

来晚了
str＝nil 要先new再用最后dispose