2

我需要了解如何使用通用 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);。但是，由于不同的专业化（例如不同的私有字段），它们不会属于同一类型。所以我必须写两个几乎相同的填充方法：

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;

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

4

3 回答 3

2

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

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

于 2009-11-02T12:30:15.790 回答
0

像这样的东西？

TSomeClass = class
private
  FList1: TArray<TList1>;
  FList2: TArray<TList2>;
public
  procedure FillArray<T>(var List: TArray<T>; Source: TSource);
end;

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

这个，或者类似的东西应该做你想做的，afaict。

于 2009-11-02T17:42:43.890 回答
0

Generics.Collections.TObjectList上的 Embarcadero 官方文档 Wiki包含TObjectList的简单代码示例。

我不确定问题到底是什么，但为了解决 TObjectList 的广泛使用，TObjectList 的示例初始化代码可能如下所示：

var
  List: TObjectList<TNewObject>;
  Obj: TNewObject;
begin
  { Create a new List. }
  List := TObjectList<TNewObject>.Create();

  { Add some items to the List. }
  List.Add(TNewObject.Create('One'));
  List.Add(TNewObject.Create('Two'));

  { Add a new item, but keep the reference. }
  Obj := TNewObject.Create('Three');
  List.Add(Obj);

示例代码应该让您了解 TObjectList 可以做什么，但是如果我正确理解了这个问题，您似乎希望能够向TObjectList的单个实例添加多个类类型？TObjectList 只能使用单一类型启动，因此如果您使用接口或抽象类启动 TObjectList 可能会更好，该接口或抽象类由您希望添加到其中的所有类共享。

与创建自己的对象相比，使用TObjectList的一个重要区别是存在OwnsObjects属性，该属性告诉TObjectList它是否拥有您添加到其中的对象，因此它是否应该自行管理释放它们。

于 2009-11-02T12:20:24.130 回答