针对带有 TStrings 和 TStringList 的接口进行编码

Question

我饶有兴趣地阅读了 Nick Hodges 博客 为什么你应该使用接口 由于我已经爱上了编码中更高级别的接口，因此我决定研究如何将其扩展到相当低的级别，并研究 VCL 类中对此存在哪些支持。

我需要的一个常见构造是使用 TStringList 做一些简单的事情，例如这段代码将一个小文本文件列表加载到逗号文本字符串中：

var
  MyList : TStrings;
  sCommaText : string;
begin
  MyList := TStringList.Create;
  try
    MyList.LoadFromFile( 'c:\temp\somefile.txt' );
    sCommaText := MyList.CommaText;

    // ... do something with sCommaText.....

  finally
    MyList.Free;
  end;
end;

如果我可以使用 MyList 作为接口进行编写，这似乎是一个很好的简化 - 它将摆脱 try-finally 并提高可读性：

var
  MyList : IStrings;
         //^^^^^^^
  sCommaText : string;
begin
  MyList := TStringList.Create;
  MyList.LoadFromFile( 'c:\temp\somefile.txt' );
  sCommaText := MyList.CommaText;

  // ... do something with sCommaText.....

end;

虽然我看不到定义的 IStrings - 当然不在 Classes.pas 中，尽管有与在线 OLE 编程相关的引用。它存在吗？这是有效的简化吗？我使用的是德尔福XE2。

Answer 1

RTL/VCL 中没有接口可以执行您想要的操作（公开与 TStrings 相同的接口）。如果你想使用这样的东西，你需要自己发明它。

您可以使用如下包装器来实现它：

type
  IStrings = interface
    function Add(const S: string): Integer;
  end;

  TIStrings = class(TInterfacedObject, IStrings)
  private
    FStrings: TStrings;
  public
    constructor Create(Strings: TStrings);
    destructor Destroy; override;
    function Add(const S: string): Integer;
  end;

constructor TIStrings.Create(Strings: TStrings);
begin
  inherited Create;
  FStrings := Strings;
end;

destructor TIStrings.Destroy;
begin
  FStrings.Free; // don't use FreeAndNil because Nick might see this code ;-)
  inherited;
end;

function TIStrings.Add(const S: string): Integer;
begin
  Result := FStrings.Add(S);
end;

当然，您可以将 TStrings 接口的其余部分包装在一个真正的类中。使用像这样的包装类来执行此操作，以便您只需访问它的实例即可包装任何类型的 TStrings。

像这样使用它：

var
  MyList : IStrings;
....
MyList := TIStrings.Create(TStringList.Create);

您可能更喜欢添加一个辅助函数来实际执行调用 TIStrings.Create 的肮脏工作。

另请注意，寿命可能是一个问题。您可能需要此包装器的变体，该变体不会接管底层 TStrings 实例的生命周期管理。这可以通过 TIStrings 构造函数参数进行安排。

---

我个人认为这是一个有趣的思想实验，但并不是一个真正明智的方法。 TStrings 类是一个抽象类，它几乎具有接口提供的所有优点。我认为按原样使用它没有真正的缺点。

Answer 2

由于 TStrings 是一个抽象类，因此它的接口版本不会提供太多内容。无论如何，该接口的任何实现者肯定都是 TStrings 后代，因为没有人愿意重新实现 TStrings 所做的所有事情。我认为需要 TStrings 接口有两个原因：

1. 自动资源清理。为此，您不需要特定于 TStrings 的接口。相反，请使用 JCL 中的 ISafeGuard 界面。这是一个例子：

   <前><代码>变量
   G：ISafeGuard；
   我的列表：TStrings；
   sCommaText：字符串；
   开始
   MyList := TStrings(Guard(TStringList.Create, G));

   MyList.LoadFromFile('c:\temp\somefile.txt');
   sCommaText := MyList.CommaText;

   // ...用 sCommaText 做一些事情......
   结尾;

   要保护应具有相同生命周期的多个对象，请使用IMultiSafeGuard。

2. 与外部模块的互操作。这就是IStrings的用途。 Delphi 使用 TStringsAdapter 类来实现它，当您在现有 TStrings 后代上调用 GetOleStrings 时，会返回该类。当您有字符串列表并且需要授予对需要 IStrings 或 IEnumString 接口的另一个模块的访问权限时，请使用它。否则，这些接口使用起来很笨拙——它们都不提供 TStrings 所做的所有事情——所以除非必要，否则不要使用它们。

   如果您正在使用的外部模块保证将始终使用与您的模块编译时相同的Delphi版本进行编译，那么您应该使用运行时包并且直接传递 TStrings 后代。共享包允许两个模块使用相同的类定义，并且内存管理大大简化。