如何检查Delphi指针是否已被释放？避免重复释放引发异常

首先得明确：Delphi没有内置的方法可以直接判断一个指针是否已经被释放。当你调用Dispose(P)时，系统只是把指针指向的内存块回收，但不会自动把P本身的值改成nil——这时候P就变成了所谓的「野指针」：它的地址非空，但指向的内存已经不属于你的程序了，这时候再调用Dispose(P)，系统就会抛出EInvalidPointer异常，提示“Invalid pointer operation”。

你提到的「释放后置nil再用Assigned判断」其实是Delphi里最标准、最安全的解决方案，我再把这个最佳实践的代码整理得更严谨一点：

type
  TRecTest = record
    Test: string;
  end;
  PRecTest = ^TRecTest;

var
  P: PRecTest;
begin
  New(P);
  try
    // 在这里执行指针相关的操作
    P.Test := '测试内容';
  finally
    // 无论中间代码是否报错，都确保指针被释放并置空
    Dispose(P);
    P := nil;
  end;

  // 用Assigned判断指针是否有效
  if not Assigned(P) then
    ShowMessage('指针已被释放并置空');
end;

这里用try...finally包裹是关键，它能保证哪怕中间的业务代码抛出异常，指针也会被正确释放并置nil，避免内存泄漏和野指针残留。

当然，你也可以自己维护一个布尔标志来跟踪指针的分配状态，比如：

var
  P: PRecTest;
  IsPAllocated: Boolean;
begin
  New(P);
  IsPAllocated := True;
  try
    P.Test := '测试内容';
  finally
    if IsPAllocated then
    begin
      Dispose(P);
      IsPAllocated := False;
    end;
    P := nil;
  end;

  if not IsPAllocated then
    ShowMessage('指针已被释放');
end;

但这种方法需要额外维护一个变量，代码冗余还容易出错，所以并不推荐，优先选择「释放后置nil+Assigned判断」的方案。

最后要提醒一句：别想着用什么“黑科技”去直接检查内存块是否有效（比如尝试访问指针指向的内存看会不会崩溃），这种做法完全不安全——那块被释放的内存可能已经被系统分配给其他进程，盲目访问会导致不可预测的程序崩溃。

内容的提问来源于stack exchange，提问作者Fabrizio