Question

一等

TMyAwesomeList = class(TObjectList)

搁置

 TAwesomeItem = class(TPersistent)

坦布项目相当抽象。

 TAwesomeItem1 = class(TAwesomeItem)
 TAwesomeItem2 = class(TAwesomeItem)
 TAwesomeItem3 = class(TAwesomeItem)
 TAwesomeItem3a = class(TAwesomeItem3)

等等(约有30个分级,有几门中等抽象的班级),一年前完成一些专题关系模型,预计最终将从Delphi 7转变至2009年(以及很快的XE2)。

该法典仍然在2009年德尔菲开展工作,但我想做的是

 for AwesomeItem3a in AwesomeList do
 begin     
    //something awesome
 end;

我不知道如何改组泰米尔伊拉姆猛虎人组织(或增加几个子类别),以完成这项工作。

Answer 1

Based on your comments, it seems you can simply use TObjectList directly.

var
  MyAwesomeList1: TObjectList<TMyAwesomeItem1>;
  MyAwesomeItem1: TMyAwesomeItem1;
begin
  MyAwesomeList1 := TObjectList<TMyAwesomeItem1>.Create;
  try
    // populate the list...

    for MyAwesomeItem1 in MyAwesomeList1 do
      ...
  finally
    MyAwesomeList1.Free;
  end;
end;

... and same for TMyAwesomeItem2, etc. If you prefer, you can also declare a type alias:

type
  TMyAwesomeList1 = TObjectList<TMyAwesomeItem1>;
  TMyAwesomeList2 = TObjectList<TMyAwesomeItem2>;
  // etc.

友情链接