delphi – 列出记录的实现

发布时间：2020-12-15 09:13:38 所属栏目：大数据来源：网络整理

导读：后续问题到 this question :(请注意,这不是重复,我在这里要求替代方案). 有没有办法做以下工作： type List T = record private FList : TList T; FGuard : IInterface,procedure CheckCreated; public procedure Add(const Value : T); end;procedure List

后续问题到 this 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;

谢谢你的帮助！

解决方法

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

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生命周期管理的需要.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!