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}
...

[alcaeus]

Fuege mal die unit Contnrs (ausser sie heisst anders, auf alle Faelle die Unit, in der die Klasse definiert ist) oben bei der DP-Collection zur uses-Liste hinzu ;)

Greetz
alcaeus

[DGL-luke]

ähm...

[Pascal Fehler] typedlisttemplate.pas(25): E2029 'UNIT' erwartet, aber 'TYPE' gefunden

Delphi-Quellcode:

...
{$IFDEF _DECLARE_SECOND_PASS}
   {$DEFINE _SECOND_PASS}
   {$UNDEF _DECLARE_SECOND_PASS}
{$ENDIF _DECLARE_SECOND_PASS}

{$IFNDEF _SECOND_PASS}
type                       //<--- HIER

  _TObjectlist = class
  private
...

[Daniel G]

Zitat:

Zitat von DGL-luke

ähm...

[Pascal Fehler]E2029 'UNIT' erwartet, aber 'TYPE' gefunden

Na', was sagt uns die Fehlermeldung jetzt? :mrgreen:

[DGL-luke]

:wall:

Nein, ich werd in dieses hockomplexe Gebilde jetzt NICHT einfach "unit unit1;" reinschreiben...

[alcaeus]

*hust* Du haettest dich ans Beispiel halten sollen. So sollte der Code passen:

Delphi-Quellcode:

unit UCollectionList;

interface

uses dpCollection, Contnrs;

type
  _LIST_ITEM_ = TJsCollection;
  {$DEFINE TYPED_LIST_TEMPLATE}
  {$I typedlisttemplate.pas}
  TCollectionList = _LIST_;

implementation

{$I typedlisttemplate.pas}

end.

Man beachte die Zeile mit der Definition von TYPED_LIST_TEMPLATE ;)

Greetz
alcaeus

[DGL-luke]

alcaeus hat mir jetzt geholfen...

mit dem "original"-template hab ichs hingekriegt.