delphi - 将 TStringList 包装在记录中

Question

我倾向于使用 Delphi 的 TStringList 进行文本操作，因此我编写了很多程序/函数，例如:

var
  TempList: TStringList;
begin
  TempList:= TStringList.Create;
  try
    // blah blah blah do stuff with TempList   


  finally
    TempList.Free;
  end;
end;

如果能够取消这样一个通用实用程序类的创建和释放，那就太好了。

既然我们现在有了带有方法的记录，是否可以将像 TStringList 这样的类包装在记录一下，这样我就可以:

var
  TempList: TRecordStringList;
begin
  // blah blah blah do stuff with TempList   


end;

Answer 1

这是可能的。创建一个公开您想要的方法/对象的接口(interface):

type
  IStringList = interface
    procedure Add(const s: string); // etc.
    property StringList: TStringList read GetStringList; // etc.
  end;

实现接口(interface)，并让它包装一个真正的TStringList:

type
  TStringListImpl = class(TInterfacedObject, IStringList)
  private
    FStringList: TStringList; // create in constructor, destroy in destructor
    // implementation etc.
  end;

然后实现记录:

type
  TStringListRecord = record
  private
    FImpl: IStringList;
    function GetImpl: IStringList; // creates TStringListImpl if FImpl is nil
                                   // returns value of FImpl otherwise
  public
    procedure Add(const s: string); // forward to GetImpl.Add
    property StringList: TStringList read GetStringList; // forward to
                                                         // GetImpl.StringList
    // etc.
  end;

记录内有一个接口(interface)，这意味着编译器将自动处理引用计数，在创建和销毁副本时调用 _AddRef 和 _Release，因此生命周期管理是自动的。这适用于永远不会包含对自身的引用(创建循环)的对象 - 引用计数需要各种技巧来克服引用图中的循环。