请教一个关于指针出错的问题

Question

type
  RSO_Detail = record
      autoId: String;
      iRowNo: string;
end ;  PSO_Detail = ^RSO_Detail ;var
  pSO,
  pSO_tmp
  : PSO_Detail;  new(pSO);
  new(pSO_tmp);
  pSO_tmp := pSO;  Dispose(pSO);
  Dispose(pSO_tmp);      //这步就会报错  //如果上面是 pSO_tmp := PSO_Detail (pSO);  也会报错  如何才能把指针赋过去还不会报错的?

Answer 1

  pSO, 
  pSO_tmp 
  : PSO_Detail;   new(pSO); 
  pSO_tmp := pSO;   Dispose(pSO); 

Answer 2

相同地方的内存只能施放一次
Dispose(pSO); 
Dispose(pSO_tmp);
经过赋值后，两个指针指向的内存是同一块

Answer 3

LZ这样貌似没什么用哦。释放Dispose(pSO)后，pSO_tmp也就没意义了。