Ignore:
Timestamp:
Dec 8, 2010, 10:00:30 AM (13 years ago)
Author:
george
Message:
  • Removed: Generic template usage form project code. Replaced by TListObject descendants.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Produce/UProducer.pas

    r17 r26  
    77
    88uses
    9   USourceCode, Classes, SysUtils, StrUtils;
     9  USourceCode, Classes, SysUtils, StrUtils, SpecializedObjectList;
    1010
    1111type
    … …  
    2727
    2828  // TListProducer = TGObjectList<Integer, TProducer>
    29   {$DEFINE TGObjectListIndex := Integer}
    30   {$DEFINE TGObjectListItem := TProducer}
    31   {$DEFINE TGObjectListList := TObjectListProducer}
    32   {$DEFINE TGObjectList := TListProducer}
    33   {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProducer}
    34   {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProducer}
    35   {$DEFINE INTERFACE}
    36   {$I 'GenericObjectList.inc'}
     29  TListProducer = class(TListObject);
    3730
    3831implementation
    39 
    40 {$DEFINE IMPLEMENTATION_USES}
    41 {$I 'GenericObjectList.inc'}
    42 
    43 // TListProducer = TGObjectList<Integer, TProducer>
    44 {$DEFINE TGObjectListIndex := Integer}
    45 {$DEFINE TGObjectListItem := TProducer}
    46 {$DEFINE TGObjectListList := TObjectListProducer}
    47 {$DEFINE TGObjectList := TListProducer}
    48 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProducer}
    49 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProducer}
    50 {$DEFINE IMPLEMENTATION}
    51 {$I 'GenericObjectList.inc'}
    5232
    5333{ TProducer }
Note: See TracChangeset for help on using the changeset viewer.