Delphi，找到对象所有者

Question

在下面的示例代码中，有什么方法可以知道 S 是否已添加到 MyStuff 中？ （除了 {whatever} 或 MyStuff.Contains() 的明显结果）

Type TMyClass = Class
  a: string;
End;

    MyStuff: TObjectList<TMyClass>;

Var S: TMyClass;
begin
  MyStuff := TObjectList<TMyClass>.Create(True);
  S := TMyClass.Create;
  if {whatever} then MyStuff.Add(S);

  // who is the owner of s?

Answer 1

不直接，不。您必须明确添加一个字段来跟踪这一点。单个对象可能可能是许多不同列表的一部分。从技术上讲，甚至是“拥有”其对象的多个列表（尽管会产生不良行为）。

我有一个习惯，总是为这样的目的添加一个字段。比如……

type 
  TMyList = class;
  TMyClass = class;

  TMyList = TObjectList<TMyClass>;

  TMyClass = class(TObject)
  private
    FOwner: TMyList;
  public
    constructor Create(AOwner: TMyList);
  end;

constructor TMyClass.Create(AOwner: TMyList);
begin
  FOwner:= AOwner;
end;

作为旁注，“所有者”一词通常用于存在非常严格的所有者关系的情况。例如，在创建组件时，您为它提供了一个“所有者”，当所有者本身被销毁时，它又负责销毁它。

Answer 2

对象生命周期/所有权管理是一门值得许多有关该主题的书籍的艺术。并且有很多（有时是相互冲突的）方法。

但要了解您的具体情况，由于您的 TMyClass 没有 Owner 字段，我会选择的方法如下所示：

Var S, vRef: TMyClass;
begin
  MyStuff := nil;
  S := TMyClass.Create;
  try
    vRef := S;
    MyStuff := TObjectList<TMyClass>.Create(True);
    if {whatever} then
    begin
      MyStuff.Add(S);
      S := nil; //You could also use a TRUE-initialized boolean variable and set it to False here to indicate that the object doesn't need to be freed...
    end;
    //vRef only usefull if you still need a reference to the object after this point.
  finally
    S.Free;
    MyStuff.Free;
  end;      

我相信 ARC 术语，这类似于使 S 成为强引用，而 vRef 成为弱引用。

您的问题可能有更好的解决方案，但在有限的背景下，这就是我想出的。