Delphi:如何使用 TObjectList？

Question

我需要了解如何使用通用 Delphi 2009 TObjectList .我的非TObjectList尝试看起来像

TSomeClass = class(TObject)
private
  FList1: Array of TList1;
  FList2: Array of TList2;
public
  procedure FillArray(var List: Array of TList1; Source: TSource); Overload;
  procedure FillArray(var List: Array of TList2; Source: TSource); Overload;
end;

在这里， TList1和 TList2继承相同的构造函数 constructor TParent.Create(Key: string; Value: string); .但是，由于不同的特化(例如不同的私有(private)字段)，它们不会属于同一类型。所以我必须写两个几乎相同的填充方法:

procedure TSomeClass.FillArray(var List: Array of TList1; Source: TSource);
begin
  for i := 0 to Source.List1.Count - 1 do begin
    SetLength(List, Length(List) + 1);
    List[i] := TList1.Create(Source.List1[i].Key, Source.List1[i].Value);
  end;
end;

与 FillArray(List: Array of TList2; Source: TSource);相同，除了替换 TList1与 TList2自始至终。据我了解，这可以通过使用 TObjectList 巧妙地规避。和单一的填充方法；但是，我不知道该怎么做。有人对此有一些好的建议吗？谢谢!

Answer 1

您无法使用泛型列表将其压缩，因为泛型的类型是类定义的一部分。所以一个TObjectList<TMyClass1>与 TObjectList<TMyClass2> 不同(且不兼容) .与普通 TList/TObjectList 相比，使用泛型列表的主要好处是提高了类型安全性，减少了类型转换和更简洁的代码。

此外，如果您使用键/值对，您是否将它们放入列表中，然后通过搜索键并返回关联值来检索它们？如果是这样，请查看 Generics.Collections 中的 TDictionary。这是一个通用的键/值哈希表，它将为您大大简化此过程。