列出实施情况并记录

Question

此问题的后续问题：（请注意，这不是重复的，我在这里寻求替代方案）。

有什么办法可以完成以下工作：

type
  List <T> = record
  private
    FList  : TList <T>;
    FGuard : IInterface,
    procedure CheckCreated;
  public
    procedure Add(const Value : T);
  end;

procedure List <T>.CheckCreated;
begin
if (FGuard = nil) then
  begin
  FList := TList <T>.Create;
  FGuard := TGuard.Create (FList);    // guard calls free on list in destructor
  end;
end;

procedure List <T>.Add (const Value : T);
begin
CheckCreated;
FList.Add (Value);
end;

理想情况下，我想像这样使用它：

function ReturnHandles : List <THandle>;
begin
Result.Add (2);
Result.Add (3);
end;

正如链接问题的答案中所解释的，这不起作用（这确实很遗憾）。它不会在每次调用时创建新列表。

不幸的是，这也不起作用：

function ReturnHandles : List <THandle>;
begin
Initialize (Result);
Result.Add (2);
Result.Add (3);
end;

它泄漏了保护接口和所有列表，因为 Initialize 只是覆盖了接口引用，而没有减少引用计数。

有什么办法可以让这个工作吗？或者您是否建议将其作为界面而不是记录，并且只使用构造线？

function ReturnHandles : List <THandle>;
begin
Result := List <T>.Create;
Result.Add (2);
Result.Add (3);   
end;

感谢您的帮助！

Answer 1

如果我理解正确的话，这应该可以正常工作：

function ReturnHandles : List <THandle>;
begin
  Finalize(Result);
  Result.Add (2);
  Result.Add (3);
end;

Finalize 调用将确保所有托管类型都设置为nil，我相信这是您的意图。

这个问题与您之前的问题非常密切相关，我认为您可以利用 out 参数来简化代码。函数结果隐式是一个 var 参数，但如果您使用显式 out 参数，它将根据您的需要初始化托管类型。

procedure InitializeHandles(out Handles : List <THandle>);
begin
  Handles.Add (2);
  Handles.Add (3);
end;

就我个人而言，由于您要在组合中引入接口，所以我想我会倾向于一路走下去并专门使用接口。或者使用标准类并接受 try/finally 生命周期管理的需要。