Ignore:
Timestamp:
Dec 5, 2011, 2:19:01 PM (13 years ago)
Author:
chronos
Message:
  • Added: Another specilaized generic Dictionary.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Generic/GenericDictionary.inc

    r112 r301  
    1111{$DEFINE TGListItem := TGPair}
    1212{$DEFINE TGList := TGDictionaryList}
    13 {$DEFINE TGListSortCompare := TDictionarySortCompare}
    14 {$DEFINE TGListToStringConverter := TDictionaryToStringConverter}
    15 {$DEFINE TGListFromStringConverter := TDictionaryFromStringConverter}
    16 {$DEFINE TGListItemArray := TDictionaryItemArray}
     13{$DEFINE TGListSortCompare := TGDictionarySortCompare}
     14{$DEFINE TGListToStringConverter := TGDictionaryToStringConverter}
     15{$DEFINE TGListFromStringConverter := TGDictionaryFromStringConverter}
     16{$DEFINE TGListItemArray := TGDictionaryItemArray}
    1717{$DEFINE INTERFACE}
    1818{$I 'GenericList.inc'}
    … …  
    3737{$ENDIF}
    3838
     39
     40{$IFDEF IMPLEMENTATION_USES}
     41{$I '..\Generic\GenericList.inc'}
     42{$UNDEF IMPLEMENTATION_USES}
     43{$ENDIF}
     44
     45
    3946{$IFDEF IMPLEMENTATION}
    40 
    41 {$UNDEF IMPLEMENTATION}
    42 {$DEFINE IMPLEMENTATION_USES}
    43 {$I '..\Generic\GenericList.inc'}
    4447
    4548{$DEFINE TGListIndex := TGDictionaryIndex}
    4649{$DEFINE TGListItem := TGPair}
    4750{$DEFINE TGList := TGDictionaryList}
    48 {$DEFINE TGListSortCompare := TDictionarySortCompare}
    49 {$DEFINE TGListToStringConverter := TDictionaryToStringConverter}
    50 {$DEFINE TGListFromStringConverter := TDictionaryFromStringConverter}
    51 {$DEFINE TGListItemArray := TDictionaryItemArray}
     51{$DEFINE TGListSortCompare := TGDictionarySortCompare}
     52{$DEFINE TGListToStringConverter := TGDictionaryToStringConverter}
     53{$DEFINE TGListFromStringConverter := TGDictionaryFromStringConverter}
     54{$DEFINE TGListItemArray := TGDictionaryItemArray}
    5255{$DEFINE IMPLEMENTATION}
    5356{$I 'GenericList.inc'}
Note: See TracChangeset for help on using the changeset viewer.