哪些列表可以作为临时列表？

当处理项目列表时，列表仅充当暂时的容器 - 您建议我使用哪些列表类型？

I

• 不想手动销毁列表
• 想要使用built-in列表类型（无框架、库……）
• 想要仿制药

可以在不导致泄漏的情况下实现这一点的东西：

function GetListWithItems: ISomeList;
begin
  Result := TSomeList.Create;
  // add items to list
end;

var
  Item: TSomeType;
begin
  for Item in GetListWithItems do
  begin
    // do something
  end;
end;

我有什么选择？这是关于 Delphi 2009 的内容，但为了了解知识，还请提及 2010+ 在这方面是否有新内容。

一个（有点丑陋的）解决方法是创建一个“自动销毁”界面以及列表。它必须具有相同的范围，以便当接口被释放时，您的列表也会被销毁。

type
  IAutoDestroyObject = interface
  end;

  TAutoDestroyObject = class(TInterfacedObject, IAutoDestroyObject)
  strict private
    FValue: TObject;
  public
    constructor Create(obj: TObject);
    destructor  Destroy; override;
  end;

constructor TAutoDestroyObject.Create(obj: TObject);
begin
  inherited Create;
  FValue := obj;
end; 

destructor TAutoDestroyObject.Destroy;
begin
  FreeAndNil(FValue);
  inherited;
end;

function CreateAutoDestroyObject(obj: TObject): IAutoDestroyObject;
begin
  Result := TAutoDestroyObject.Create(obj);
end; 

FList := TObjectList.Create;
FListAutoDestroy := CreateAutoDestroyObject(FList);

您的使用示例也变得更加复杂。

type
  TSomeListWrap = record
    List: TSomeList;
    AutoDestroy: IAutoDestroyObject;
  end;

function GetListWithItems: TSomeListWrap;
begin
  Result.List := TSomeList.Create;
  Result.AutoDestroy := CreateAutoDestroyObject(Result.List);
  // add items to list
end;

var
  Item: TSomeItem;
begin
  for Item in GetListWithItems.List do
  begin
    // do something
  end;
end;