我需要了解如何使用通用 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
巧妙地规避。和单一的填充方法;但是,我不知道该怎么做。有人对此有一些好的建议吗?谢谢!
最佳答案
您无法使用泛型列表将其压缩,因为泛型的类型是类定义的一部分。所以一个TObjectList<TMyClass1>
与 TObjectList<TMyClass2>
不同(且不兼容) .与普通 TList/TObjectList 相比,使用泛型列表的主要好处是提高了类型安全性,减少了类型转换和更简洁的代码。
此外,如果您使用键/值对,您是否将它们放入列表中,然后通过搜索键并返回关联值来检索它们?如果是这样,请查看 Generics.Collections 中的 TDictionary。这是一个通用的键/值哈希表,它将为您大大简化此过程。
关于Delphi:如何使用 TObjectList<T>?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1660698/