typisierte Objektliste funktioniert nicht

[DGL-luke]

Hallo,

die hier: http://www.delphipraxis.net/internal...light=template beschriebenen templates funktionieren bei mir (Delphi 2006) nicht.
Der Compiler bemängelt, dass TObjectList nicht definiert sei...

Hier meine Implementation:

Delphi-Quellcode:

unit UCollectionList;

interface

uses dpCollection;

type
 _TObjectListItem = TJsCollection;
    {$I typedlisttemplate.pas}
  TCollectionList = class(_TObjectList)
  end;

implementation

  {$I typedlisttemplate.pas}

end.

Delphi-Quellcode:

...
{$IFNDEF _SECOND_PASS}
type

  _TObjectlist = class
  private
  protected
    fList: TObjectList; //hier "Knallts"
    function GetItems(_Idx: integer): _TObjectListItem;
    function GetCount: integer;
  public
    constructor Create;
    destructor Destroy; override;
    function Add(_Item: _TObjectListItem): integer;
    function Remove(_Item: _TObjectListItem): integer;
    procedure Clear;
    property Items[_Idx: integer]: _TObjectListItem read GetItems; default;
    property Count: integer read GetCount;
  end;
{$DEFINE _DECLARE_SECOND_PASS}
...