如何在TList中获取TList对象？

Question

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

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>泛型类会更舒服。不需要演员了！

Answer 2

TO1[i]给出了你的对象。

TO2[j]给出了TO1列表。

因此，TO2[j][i]也给出了对象。

Answer 3

 type
  TmyObject = class
           text : string;

  end;


procedure TForm2.Button1Click(Sender: TObject);
var
  MotherList : Tlist;
  ChildList : TList;
  obj1 : TmyObject;
begin
//create mother list
MotherList := Tlist.Create;
//create child lista
ChildList := TList.create;


//fill mother list
MotherList.Add(ChildList);    

//fill child list
obj1:= TmyObject.Create;
obj1.text := 'Element 1';
ChildList.Add(obj1);    

//search element of child list within mother list
showmessage(TmyObject(TList(MotherList.Items[0]).Items[0]).text);

obj1.Free;
ChildList.free;
MotherList.free;
end;