Changeset 301
- Timestamp:
- Dec 5, 2011, 2:19:01 PM (13 years ago)
- Location:
- Generics/TemplateGenerics
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Generics/TemplateGenerics/Generic/GenericDictionary.inc
r112 r301 11 11 {$DEFINE TGListItem := TGPair} 12 12 {$DEFINE TGList := TGDictionaryList} 13 {$DEFINE TGListSortCompare := T DictionarySortCompare}14 {$DEFINE TGListToStringConverter := T DictionaryToStringConverter}15 {$DEFINE TGListFromStringConverter := T DictionaryFromStringConverter}16 {$DEFINE TGListItemArray := T DictionaryItemArray}13 {$DEFINE TGListSortCompare := TGDictionarySortCompare} 14 {$DEFINE TGListToStringConverter := TGDictionaryToStringConverter} 15 {$DEFINE TGListFromStringConverter := TGDictionaryFromStringConverter} 16 {$DEFINE TGListItemArray := TGDictionaryItemArray} 17 17 {$DEFINE INTERFACE} 18 18 {$I 'GenericList.inc'} … … 37 37 {$ENDIF} 38 38 39 40 {$IFDEF IMPLEMENTATION_USES} 41 {$I '..\Generic\GenericList.inc'} 42 {$UNDEF IMPLEMENTATION_USES} 43 {$ENDIF} 44 45 39 46 {$IFDEF IMPLEMENTATION} 40 41 {$UNDEF IMPLEMENTATION}42 {$DEFINE IMPLEMENTATION_USES}43 {$I '..\Generic\GenericList.inc'}44 47 45 48 {$DEFINE TGListIndex := TGDictionaryIndex} 46 49 {$DEFINE TGListItem := TGPair} 47 50 {$DEFINE TGList := TGDictionaryList} 48 {$DEFINE TGListSortCompare := T DictionarySortCompare}49 {$DEFINE TGListToStringConverter := T DictionaryToStringConverter}50 {$DEFINE TGListFromStringConverter := T DictionaryFromStringConverter}51 {$DEFINE TGListItemArray := T DictionaryItemArray}51 {$DEFINE TGListSortCompare := TGDictionarySortCompare} 52 {$DEFINE TGListToStringConverter := TGDictionaryToStringConverter} 53 {$DEFINE TGListFromStringConverter := TGDictionaryFromStringConverter} 54 {$DEFINE TGListItemArray := TGDictionaryItemArray} 52 55 {$DEFINE IMPLEMENTATION} 53 56 {$I 'GenericList.inc'} -
Generics/TemplateGenerics/Specialized/SpecializedDictionary.pas
r112 r301 17 17 {$DEFINE TGPairValue := string} 18 18 {$DEFINE TGDictionary := TDictionaryStringString} 19 {$DEFINE TGDictionaryList := TDictionary List}20 {$DEFINE TGDictionarySortCompare := TDictionaryS ortCompareInteger}21 {$DEFINE TGDictionaryToStringConverter := TDictionary ToStringConverterInteger}22 {$DEFINE TGDictionaryFromStringConverter := TDictionary FromStringConverterInteger}23 {$DEFINE TGDictionaryItemArray := TDictionaryString ItemArray}19 {$DEFINE TGDictionaryList := TDictionaryStringStringList} 20 {$DEFINE TGDictionarySortCompare := TDictionaryStringStringSortCompare} 21 {$DEFINE TGDictionaryToStringConverter := TDictionaryStringStringToStringConverter} 22 {$DEFINE TGDictionaryFromStringConverter := TDictionaryStringStringFromStringConverter} 23 {$DEFINE TGDictionaryItemArray := TDictionaryStringStringItemArray} 24 24 {$DEFINE INTERFACE} 25 25 {$I 'GenericDictionary.inc'} 26 26 27 // TDictionaryIntegerString<Integer, TPair<Integer, string>> 28 {$DEFINE TGDictionaryIndex := Integer} 29 {$DEFINE TGPair := TPairIntegerString} 30 {$DEFINE TGPairKey := Integer} 31 {$DEFINE TGPairValue := string} 32 {$DEFINE TGDictionary := TDictionaryIntegerString} 33 {$DEFINE TGDictionaryList := TDictionaryIntegerStringList} 34 {$DEFINE TGDictionarySortCompare := TDictionaryIntegerStringSortCompare} 35 {$DEFINE TGDictionaryToStringConverter := TDictionaryIntegerStringToStringConverter} 36 {$DEFINE TGDictionaryFromStringConverter := TDictionaryIntegerStringFromStringConverter} 37 {$DEFINE TGDictionaryItemArray := TDictionaryIntegerStringItemArray} 38 {$DEFINE INTERFACE} 39 {$I 'GenericDictionary.inc'} 40 41 27 42 implementation 43 44 {$DEFINE IMPLEMENTATION_USES} 45 {$I '..\Generic\GenericDictionary.inc'} 46 28 47 29 48 // TDictionaryStringString<Integer, TPair<string, string>> … … 33 52 {$DEFINE TGPairValue := string} 34 53 {$DEFINE TGDictionary := TDictionaryStringString} 35 {$DEFINE TGDictionaryList := TDictionary List}36 {$DEFINE TGDictionarySortCompare := TDictionaryS ortCompareInteger}37 {$DEFINE TGDictionaryToStringConverter := TDictionary ToStringConverterInteger}38 {$DEFINE TGDictionaryFromStringConverter := TDictionary FromStringConverterInteger}39 {$DEFINE TGDictionaryItemArray := TDictionaryString ItemArray}54 {$DEFINE TGDictionaryList := TDictionaryStringStringList} 55 {$DEFINE TGDictionarySortCompare := TDictionaryStringStringSortCompare} 56 {$DEFINE TGDictionaryToStringConverter := TDictionaryStringStringToStringConverter} 57 {$DEFINE TGDictionaryFromStringConverter := TDictionaryStringStringFromStringConverter} 58 {$DEFINE TGDictionaryItemArray := TDictionaryStringStringItemArray} 40 59 {$DEFINE IMPLEMENTATION} 41 60 {$I 'GenericDictionary.inc'} 42 61 62 // TDictionaryIntegerString<Integer, TPair<Integer, string>> 63 {$DEFINE TGDictionaryIndex := Integer} 64 {$DEFINE TGPair := TPairIntegerString} 65 {$DEFINE TGPairKey := Integer} 66 {$DEFINE TGPairValue := string} 67 {$DEFINE TGDictionary := TDictionaryIntegerString} 68 {$DEFINE TGDictionaryList := TDictionaryIntegerStringList} 69 {$DEFINE TGDictionarySortCompare := TDictionaryIntegerStringSortCompare} 70 {$DEFINE TGDictionaryToStringConverter := TDictionaryIntegerStringToStringConverter} 71 {$DEFINE TGDictionaryFromStringConverter := TDictionaryIntegerStringFromStringConverter} 72 {$DEFINE TGDictionaryItemArray := TDictionaryIntegerStringItemArray} 73 {$DEFINE IMPLEMENTATION} 74 {$I 'GenericDictionary.inc'} 75 76 43 77 end.
Note:
See TracChangeset
for help on using the changeset viewer.