如何查看处置记录？

Question

我想通过指针变量知道已处置的记录。

例如，我有如下记录和全局变量（T，P）。

TTest = record
 iA: Integer;
 sA: string;
end;
pTest = ^TTest;

T: pTest;
P: Pointer;

然后调用下面的过程。

...

procedure TestCreate;  
begin
  New(T);
  T^.iA := 100;
  T^.sA := 'ABCD';

  // 1.
  P := T;

  // 2.
  Dispose(T);

  // 3.
  WriteLn( IntToStr(pTest(P)^.iA) );
  // -> Show the 100
end;

有没有办法通过指针'P'知道记录'T'是否已被释放？

Answer 1

仅凭指针无法判断指向的值是否仍然有效。如果没有一些额外的代码来以某种方式跟踪它是不可能的。

作为旁注，我希望您知道您可以在不涉及指针的情况下处理记录？例如：

type
  TTest = record
   iA: Integer;
   sA: string;
  end;
var
  T: TTest;
begin   
  T.iA := 100;
  T.sA := 'ABCD';