释放多重引用对象

Question

这是另一篇关于我继承 Intraweb 应用程序的文章，该应用程序有一个由 FastMM4 报告的 2MB 内存泄漏文本文件，其中我将其减少到一个类的 115 个实例，每个实例泄漏 52 个字节。

泄漏来自于类的相当复杂的实例化和处理。 需要类的每个实例化才能让应用程序立即运行。 因此，我正在寻找一些方法来通过对克隆进行一些直接清理来克隆类，或者以不同的方式引用，或者..？

该类的第一个实例化 (TCwcBasicAdapter) 是作为一个局部变量，添加到 TObjectList（不是 Owning）并用 TObjectList (FCDSAdapters) 销毁：

procedure TCwcDeclaration.AttachAdapter(DS: TDataSource; const FormName, KeyFN, TitleFN: string; const Multiple: boolean = False;
  const AllowAttachment: boolean = False; const AllowComment: boolean = False);  
var  
  Forms : TCwcSessionForms;  
  Adapter: TCwcCDSAdapter;  
  KeyField, TitleField: TField;  
begin  
  Forms := GetForms(FormName);  
  KeyField := DS.DataSet.FindField(KeyFN);  
  TitleField := DS.DataSet.FindField(TitleFN);  
  Adapter := TCwcBasicAdapter.Create(DS, KeyField, TitleField, Multiple);  
  Adapter.AttachDBPersist(Self.DBPersist);  
  Forms.AttachDataAdapter(Adapter);  
  Forms.SetAllowAttachments(AllowAttachment);  
  Forms.SetAllowComments(AllowComment);  
end;  

procedure TCwcSessionForms.AttachDataAdapter(aCDSAdapter: TCwcCDSAdapter);  
var  
  Index: integer;  
begin  
  if (FCDSAdapters.IndexOf(aCDSAdapter)  -1)  
    then raise Exception.CreateFmt('Duplicate Adapter attempting to be attached on %0:s', [FFormClassName]);  
  Index := FCDSAdapters.Add(aCDSAdapter);  
  if (FDefaultAdapterIndex = -1)  
    then FDefaultAdapterIndex := Index;  
end;  

该类的第二个实例化也是作为一个局部变量，添加到TObjectList（不拥有）并用 TObjectList (FAdapters) 销毁：

procedure TCwcCDSMulticastList.InitializeAdapters(const aSessionForms: TCwcSessionForms);  
var  
  i, Count: integer;  
  Adapter:  TCwcCDSAdapter;  
  TempMulticast: TCwcCDSEventMulticast;  
begin  
  Count := aSessionForms.GetDataAdapterCount;  
  for i := 0 to Pred(Count) do begin  
      Adapter := aSessionForms.GetDataAdapter(i);  
      TempMulticast := FindDataSource(Adapter.DataSource);  
      if (TempMulticast = nil) then begin  
          TempMulticast := TCwcCDSEventMulticast.Create(Adapter.DataSource);  
          try  
            FMulticastList.Add(TempMulticast);  
          except  
            FreeAndNil(TempMulticast);  
            raise;  
          end;  
        end;  
      TempMulticast.AddObserver(Adapter);  
      FAdapters.Add(Adapter);  
    end;  
end;  

该类的第三个实例是上面 TempMulticast.AddObserver(Adapter) 行中观察者模式的一部分。 观察者被添加到TObjectList FObservers（拥有）：

procedure TCwcCDSEventMulticast.AddObserver(const aCDSAdapter: TCwcCDSAdapter);  
begin  
  FObservers.Add(TCwcCDSAdapterObserver.Create(aCDSAdapter));  
end;  

constructor TCwcCDSAdapterObserver.Create(const aCDSAdapter: TCwcCDSAdapter);  
begin  
  inherited Create;  
  FOnStateChange     := aCDSAdapter.OnStateChangeIntercept;  
  FOnAfterDelete     := aCDSAdapter.AfterDeleteIntercept;  
  FInvalidateCursors := aCDSAdapter.InvalidateCursors;  
end;  

TCwcBasicAdapter在这里泄漏，当FObservers被销毁时没有被清理。

我尝试的最新方法是将 FObservers 更改为不拥有，为适配器创建私有字段，释放 TCwcCDSAdapterObserver.Destroy 中的私有字段，但这会导致错误。

谢谢，

保罗·赖斯

Answer 1

如果列表不是所有者，那么在释放列表时他们不会释放对象。 仅对每个项目调用“删除”也不会实现此目的。 您必须遍历列表并对列表中的每个项目调用 Free，然后释放列表本身。

如果您将列表设为所有者，那么当您释放列表时，他们会为您执行此操作。

for i := 0 to FAdapters.Count do Free(FAdapters[i]);
FreeAndNil(FAdapters);

Answer 2

您意识到您可以自己处理物品而不会让它们的主人自动处理它们吗？ 我问这个问题是因为感觉你试图让自动装置在所有情况下完成工作。