Delphi 管理空闲内存

Question

情况

我正在从 Marco Cantu 的书中学习 Delphi，并且我已经有了 OOP 的经验，因为我通常使用 Java 和 PHP。为了更好地理解我正在阅读的内容，我做了这个测试：

type
 TFraction = class
  private
   number: double;
   num, den: integer;
   fraction: string;
   function hcf(x: integer; y: integer): integer;
  public
   constructor Create(numerator: integer; denominator: integer); overload;
   constructor Create(value: string); overload;
   function getFraction: string;
 end;

这是一个超级简单的类，可以将十进制数转换为分数。我不包括定义构造函数和函数的代码的其他部分，因为它们对我的问题没有用。我正在以这种方式创建对象。

var a: TFraction;
begin

 a := TFraction.Create(225, 35);
 ShowMessage(a.getFraction);
 //The output of ^ is 45/7
 a.Free;

end;

---

问题

据我所知，我知道一旦我使用了该对象就必须摆脱它，事实上我正在使用Free。通过这种方式，我释放了内存并避免了内存泄漏。

顺便说一句，我还可以覆盖destructor。我不太了解Free 和Destroy 的行为。当我必须摆脱不再需要的对象时，我会使用Free。当我覆盖析构函数时，我可以释放对象并进行其他操作吗？

简而言之，什么时候使用 Free 比较好？我什么时候应该更喜欢毁灭？

Answer 1

一般来说，如果您需要在对象销毁期间执行某些操作，否则将使用析构函数，否则不会自动完成。就像释放您在构造函数中初始化的内存一样。在您的示例中，无需覆盖析构函数，因为（大概）您不会创建任何需要手动销毁的东西。

另外，请记住，Destroy 根本不打算由您调用 - 无论是内部还是外部。 Free 会自动为您调用 - 需要做一些额外的工作。 Free 检查对象是否为nil，如果不是nil，则仅调用Destroy。

以此为例：

type
  TMyObject = class(TObject)
  private
    FSomeOtherObject: TSomeOtherObject;
  public
    constructor Create;
    destructor Destroy; override;
  end;

constructor TMyObject.Create;
begin
  inherited;
  FSomeOtherObject:= TSomeOtherObject.Create;
end;

destructor TMyObject.Destroy;
begin
  FSomeOtherObject.Free;
  inherited;
end;

作为补充说明，我在上面看到的用法缺少一些东西。如果Create 和Free 之间的代码引发了一些异常怎么办？该过程将退出，并且永远不会被释放。因此，您应该使用 try / finally 块...

a := TFraction.Create(225, 35);
try 
  ShowMessage(a.getFraction);
finally
  a.Free;
end;

这将确保无论try 和finally 之间发生什么，finally 和end 之间的代码将始终被调用。

Answer 2

顺便说一句，我还可以覆盖destructor。我不太了解Free 和Destroy 的行为。

Free() 在对象指针不为 nil 时调用析构函数。

Destroy() 是实际的析构函数。

当我必须摆脱不再需要的对象时，我会使用Free。当我覆盖析构函数时，我可以释放对象并进行其他操作吗？

是的。当对象处于被销毁的过程中时，会调用析构函数。重写析构函数是执行与被销毁对象相关的清理操作的好地方。

简而言之，什么时候使用 Free 比较好？我什么时候应该更喜欢毁灭？

您可以直接调用Destroy()，但一般首选调用Free()，让它为您调用Destroy()。