source: trunk/Packages/TemplateGenerics/Specialized/SpecializedDictionary.pas

Last change on this file was 30, checked in by chronos, 12 years ago
  • Updated: Component versions.
  • Added: Missing forms.
File size: 2.8 KB
Line 
1unit SpecializedDictionary;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11{$MACRO ON}
12
13// TDictionaryStringString<Integer, TPair<string, string>>
14{$DEFINE TGDictionaryIndex := Integer}
15{$DEFINE TGPair := TPairStringString}
16{$DEFINE TGPairKey := string}
17{$DEFINE TGPairValue := string}
18{$DEFINE TGDictionary := TDictionaryStringString}
19{$DEFINE TGDictionaryList := TDictionaryStringStringList}
20{$DEFINE TGDictionarySortCompare := TDictionaryStringStringSortCompare}
21{$DEFINE TGDictionaryToStringConverter := TDictionaryStringStringToStringConverter}
22{$DEFINE TGDictionaryFromStringConverter := TDictionaryStringStringFromStringConverter}
23{$DEFINE TGDictionaryItemArray := TDictionaryStringStringItemArray}
24{$DEFINE INTERFACE}
25{$I 'GenericDictionary.inc'}
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
42implementation
43
44{$DEFINE IMPLEMENTATION_USES}
45{$I '..\Generic\GenericDictionary.inc'}
46
47
48// TDictionaryStringString<Integer, TPair<string, string>>
49{$DEFINE TGDictionaryIndex := Integer}
50{$DEFINE TGPair := TPairStringString}
51{$DEFINE TGPairKey := string}
52{$DEFINE TGPairValue := string}
53{$DEFINE TGDictionary := TDictionaryStringString}
54{$DEFINE TGDictionaryList := TDictionaryStringStringList}
55{$DEFINE TGDictionarySortCompare := TDictionaryStringStringSortCompare}
56{$DEFINE TGDictionaryToStringConverter := TDictionaryStringStringToStringConverter}
57{$DEFINE TGDictionaryFromStringConverter := TDictionaryStringStringFromStringConverter}
58{$DEFINE TGDictionaryItemArray := TDictionaryStringStringItemArray}
59{$DEFINE IMPLEMENTATION}
60{$I 'GenericDictionary.inc'}
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
77end.
Note: See TracBrowser for help on using the repository browser.