Ignore:
Timestamp:
Dec 8, 2010, 10:00:30 AM (14 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/Analyze/UAnalyzer.pas

    r25 r26  
    88uses
    99  SysUtils, Variants, Classes, Contnrs,
    10   Dialogs, USourceCode, FileUtil;
     10  Dialogs, USourceCode, FileUtil, SpecializedObjectList;
    1111
    1212type
    … …  
    8282
    8383  // TListAnalyzer = TGObjectList<Integer, TAnalyzer>
    84   {$DEFINE TGObjectListIndex := Integer}
    85   {$DEFINE TGObjectListItem := TAnalyzer}
    86   {$DEFINE TGObjectListList := TObjectListAnalyzer}
    87   {$DEFINE TGObjectList := TListAnalyzer}
    88   {$DEFINE TGObjectListSortCompare := TObjectListSortCompareAnalyzer}
    89   {$DEFINE TGObjectListStringConverter := TObjectListStringConverterAnalyzer}
    90   {$DEFINE INTERFACE}
    91   {$I 'GenericObjectList.inc'}
     84  TListAnalyzer = class(TListObject);
    9285
    9386resourcestring
    … …  
    9588
    9689implementation
    97 
    98 {$DEFINE IMPLEMENTATION_USES}
    99 {$I 'GenericObjectList.inc'}
    100 
    101 // TListAnalyzer = TGObjectList<Integer, TAnalyzer>
    102 {$DEFINE TGObjectListIndex := Integer}
    103 {$DEFINE TGObjectListItem := TAnalyzer}
    104 {$DEFINE TGObjectListList := TObjectListAnalyzer}
    105 {$DEFINE TGObjectList := TListAnalyzer}
    106 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareAnalyzer}
    107 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterAnalyzer}
    108 {$DEFINE IMPLEMENTATION}
    109 {$I 'GenericObjectList.inc'}
    11090
    11191{ TAnalyzer }
Note: See TracChangeset for help on using the changeset viewer.