Delphi 铸造TList<；T:class>；到TList<；W：等级>；
我有一个类型列表Delphi 铸造TList<；T:class>；到TList<；W：等级>；,delphi,casting,rtti,generic-collections,tlist,Delphi,Casting,Rtti,Generic Collections,Tlist,我有一个类型列表TList。我需要将其转换为TList，如下所示： procedure mainForm.testCast; var listT: TList<TForm>; listW: TList<TObject>; obj: TObject; begin listT := TList<TForm>.create; listT.add(form1); listT.add(form2); listW := TList<TO
TListTListprocedure mainForm.testCast;
var
listT: TList<TForm>;
listW: TList<TObject>;
obj: TObject;
begin
listT := TList<TForm>.create;
listT.add(form1);
listT.add(form2);
listW := TList<TObject>(listT); // Casting is OK
// This works, but is this fine?
for obj in listW do
memo1.lines.add(obj.className);
end;
procedure mainForm.testCast；
变量
listT:TList；
listW:TList；
对象：对象；
开始
listT:=TList.create；
列表添加（表格1）；
列表添加（表格2）；
listW:=TList（listT）；//铸造是好的
//这样行得通，但这样行吗？
对于列表中的obj，请执行以下操作：
备注1.lines.add（对象类名称）；
结束；
dogetemulatorTValuelistTFMX.Forms好吧，您的代码可以正常工作，但在我看来有点可疑。简单地说，演员阵容是不合法的，因为
TList<TForm>.InheritsFrom(TList<TObject>)
TList.InheritsFrom（TList）
TListTList如果您有任何困难理解为什么设计器使泛型类型不变量，那么请考虑在代码中写入“代码> List.Advest.Addio.ToStudio.Cudio.<代码>的效果。想想它对类型为
TList既然您已经在使用RTTI，那么我建议您使用RTTI迭代列表。您可以使用RTTI调用
GetEnumeratorTFormTObjectTListTListTListTList是TListFalseTList是TList.InheritsFrom（TList）TFormTObjectTListTListTListWTTListTList