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

Last change on this file was 60, checked in by chronos, 12 years ago
File size: 1.6 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 INTERFACE}
21{$I 'GenericDictionary.inc'}
22
23// TDictionaryIntegerString<Integer, TPair<Integer, string>>
24{$DEFINE TGDictionaryIndex := Integer}
25{$DEFINE TGPair := TPairIntegerString}
26{$DEFINE TGPairKey := Integer}
27{$DEFINE TGPairValue := string}
28{$DEFINE TGDictionary := TDictionaryIntegerString}
29{$DEFINE TGDictionaryList := TDictionaryIntegerStringList}
30{$DEFINE INTERFACE}
31{$I 'GenericDictionary.inc'}
32
33
34implementation
35
36{$DEFINE IMPLEMENTATION_USES}
37{$I '..\Generic\GenericDictionary.inc'}
38
39
40// TDictionaryStringString<Integer, TPair<string, string>>
41{$DEFINE TGDictionaryIndex := Integer}
42{$DEFINE TGPair := TPairStringString}
43{$DEFINE TGPairKey := string}
44{$DEFINE TGPairValue := string}
45{$DEFINE TGDictionary := TDictionaryStringString}
46{$DEFINE TGDictionaryList := TDictionaryStringStringList}
47{$DEFINE IMPLEMENTATION}
48{$I 'GenericDictionary.inc'}
49
50// TDictionaryIntegerString<Integer, TPair<Integer, string>>
51{$DEFINE TGDictionaryIndex := Integer}
52{$DEFINE TGPair := TPairIntegerString}
53{$DEFINE TGPairKey := Integer}
54{$DEFINE TGPairValue := string}
55{$DEFINE TGDictionary := TDictionaryIntegerString}
56{$DEFINE TGDictionaryList := TDictionaryIntegerStringList}
57{$DEFINE IMPLEMENTATION}
58{$I 'GenericDictionary.inc'}
59
60
61end.
Note: See TracBrowser for help on using the repository browser.