Delphi：泛型和TObjectList

我创建了一个类，如

TMyClass = class(TObject)
private
  FList1: TObjectList<List1>;
  FList2: TObjectList<List2>;
public
end;

TMyClass=class（TObject）
私有的
FList1:TObjectList；
FList2：TObjectList；
公众的
结束；

---

现在，我想要一个方法

FillArray（Content），最好实现一次，即无过载。我相信这是可能的使用泛型，但我太缺乏经验，这些野兽实际上实现它。有人有线索吗？提前谢谢
 我认为以下内容只适用于Delphi 2010。由于这取决于系统单元中的TArray声明，因此如下所示：

  TArray<T> = array of T;

TArray=T的数组；

这是我开发的帮助TArray进行列表转换的单元

unit ListTools;

interface                
uses Generics.Collections;
type
 TListTools = class(TObject)
 public
    // Convert TList<T> to TArray<T>
    class function ToArray<T>(AList: TList<T>): TArray<T>;
    // Append Array elements in AValues to AList
    class procedure AppendList<T>(AList : TList<T>;AValues : TArray<T>);
    // Clear List and Append Values to aList
    class procedure ToList<T>(AList : TList<T>;AValues : TArray<T>);
 end;

implementation

{ TListTools }

class procedure TListTools.AppendList<T>(AList: TList<T>; AValues: TArray<T>);
var
  Element : T;
begin
  for Element in AValues do
  begin
     AList.Add(Element);
  end;
end;

class function TListTools.ToArray<T>(AList: TList<T>): TArray<T>;
// taken from rtti.pas
var
  i : Integer;
begin
  SetLength(Result, AList.Count);
  for i := 0 to AList.Count - 1 do
    Result[i] := AList[i];
end;

class procedure TListTools.ToList<T>(AList: TList<T>; AValues: TArray<T>);
begin
   AList.Clear;
   AppendList<T>(AList,AValues);
end;

end.

单位列表工具；
接口
使用泛型；
类型
TListTools=类（ToObject）
公众的
//将TList转换为TArray
类函数ToArray（AList:TList）：TArray；
//将AValues中的数组元素附加到AList
类过程AppendList（列表：TList；AValues:TArray）；
//清除列表并将值附加到列表
类过程ToList（列表：TList；AValues:TArray）；
结束；
实施
{TListTools}
类过程TListTools.AppendList（列表：TList；AValues:TArray）；
变量
元素：T；
开始
对于AValues do中的元素
开始
a.添加（元素）；
结束；
结束；
类函数TListTools.ToArray（AList:TList）：TArray；
//摘自rtti.pas
变量
i：整数；
开始
SetLength（结果、列表计数）；
对于i:=0到AList.Count-1 do
结果[i]：=AList[i]；
结束；
类过程TListTools.ToList（AList:TList；AValues:TArray）；
开始
1.清楚；
附录列表（列表、附录）；
结束；
结束。

由于Tlist是TObjectList的父类，因此虽然我没有尝试过，但它应该与TObjectList一起使用。
声明不应该是TMyClass吗？对于FList1和FList2，FillArray（内容）应该做什么？内容是如何声明的？对不起，我在混合线程。填充（内容）是负责填充列表的某种方法。你可能已经猜到了，我还没有真正实现这个。。。我必须停止问关于血糖水平下降的问题……：）你的解决方案非常有趣-当这是一个问题的答案。。。哇，我的玻璃球看了之后还是瞎的：-）@Robert：我为把你引入歧途而道歉（见上面对Uwe的评论）。我意识到这个问题没有被恰当地指明。我现在没有时间修复它，但我想我会为此再发一篇帖子。。。