delphi - 如何在 TList 中获取 TList 的对象？

Question

假设我有多个对象存储在 TO1:TList 中，然后我创建多个 TO1 并将它们全部放在 TO2:TList 中。如何在 TO2 中的选定 TO1 中获取选定对象的值？

Answer 1

由于TList为您提供每个项目的指针，您必须将项目转换为正确的数据类型:

var
  aList: TList;
  aItem: TMyObject;
begin

  aList := TList(TO2[selectedO2Index]);       // this cast isn't really needed
  aItem := TMyObject(aList[selectedO1Index]); // neither this one!

end;

您可以通过以下方式保存一个变量:

var
  aItem: TMyObject;
begin

  // Now the cast to TList is needed!
  aItem := TMyObject(TList(TO2[selectedO2Index])[selectedO1Index]);

end;

根据您使用的 Delphi 版本，使用 TList<T> 会更舒服。或 TObjectList<T>泛型类。不需要类型转换!