var
  pstr: ^string;
begin
  pstr^:= 'OK';
  ShowMessage(pstr^);
end;
运行上面代码为什么会产生异常?

解决方案 »

  1.   

    你定义的
    var 
        pstr:   ^string; 
    是一个指向string变量的指针,而不是字符串的指针!下面的可以通过!!!
    var
        pstr: ^string;
        str:string;  //一个变量
    begin
        str := 'OK';   
        pstr:= @str;   //取变量的地址赋给Pstr
       ShowMessage(pstr^);
    end;