(delphi11最新学习资料) Object Pascal 学习笔记---第13章第3节 （仅销毁对象一次 ）

13.3.2 仅销毁对象一次

​ 另一个问题是，如果调用对象的析构函数两次，将会导致错误。析构函数是释放对象内存的方法。我们可以为析构函数编写代码，通常是覆盖默认的 Destroy 析构函数，以便让对象在被销毁之前执行一些代码。

​ Destroy是TObject类的虚析构函数。大多数需要在对象销毁时执行自定义清理代码的类都会覆盖此虚方法。您绝对不应该定义新的析构函数，因为通常对象是通过调用Free方法来销毁的，而Free方法会为您调用Destroy虚析构函数（可能是重载版本）。

​ 正如我刚提到的，Free只是TObject类的一个方法，被所有其他类继承。Free方法基本上在调用Destroy虚析构函数之前检查当前对象（Self）是否为nil。

注解：您可能会想知道为什么如果对象引用为nil，您仍然可以安全地调用Free，但不能调用Destroy。原因是Free是一个位于给定内存位置的已知方法，而Destroy虚函数是在运行时查看对象的类型来确定的，如果对象不存在，这个操作就非常危险

​ 以下是Free的伪代码：

procedure