delphi - 如何使用 TMyRecord 中的通用子列表释放通用 TList

Question

在 Windows 下的 Delphi 10 Berlin 中，我有以下关于释放通用列表的问题:

我有以下记录/列表结构:

type
  TMyRecord=record
    Value1: Real;
    SubList1: TList<Integer>;
    SubList2: TList<Real>;
  end;

  TMyListOfRecords=TList<TMyRecord>;

我想使用以下代码释放结构:

var
  i: Integer;
  AMyListOfRecords: TMyListOfRecords;
begin
  //other code

  //free AMyListOfRecords and all its content
  for i:=0 to AMyListOfRecords.Count-1 do
  begin
    AMyListOfRecords[i].SubList1.Free;
    AMyListOfRecords[i].SubList2.Free;
  end;
  AMyListOfRecords.Free;
end;

这似乎有效。但我想知道是否有更简单或更优雅的解决方案？

Answer 1

您可以将记录类型转换为类 - 开销可以忽略不计，因为记录已经包含子对象。在此类析构函数中释放子对象，并使用

 TMyListOfClasses = TObjectList<TMyClass>;

与 OwnsObjects = True
在这种情况下，您只需要

AMyListOfClasses.Free;