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

Last change on this file was 60, checked in by chronos, 12 years ago
File size: 1014 bytes
Line 
1unit SpecializedSet;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11{$MACRO ON}
12
13// TSetInteger<Integer, Integer>
14{$DEFINE TGSetIndex := Integer}
15{$DEFINE TGSetItem := Integer}
16{$DEFINE TGSetList := TSetListInteger}
17{$DEFINE TGSet := TSetInteger}
18{$DEFINE INTERFACE}
19{$I 'GenericSet.inc'}
20
21// TSetPointer<Integer, Pointer>
22{$DEFINE TGSetIndex := Integer}
23{$DEFINE TGSetItem := Pointer}
24{$DEFINE TGSetList := TSetListPointer}
25{$DEFINE TGSet := TSetPointer}
26{$DEFINE INTERFACE}
27{$I 'GenericSet.inc'}
28
29implementation
30
31{$DEFINE IMPLEMENTATION_USES}
32{$I 'GenericSet.inc'}
33
34// TSetInteger<Integer, Integer>
35{$DEFINE TGSetIndex := Integer}
36{$DEFINE TGSetItem := Integer}
37{$DEFINE TGSetList := TSetListInteger}
38{$DEFINE TGSet := TSetInteger}
39{$DEFINE IMPLEMENTATION}
40{$I 'GenericSet.inc'}
41
42// TSetPointer<Integer, Pointer>
43{$DEFINE TGSetIndex := Integer}
44{$DEFINE TGSetItem := Pointer}
45{$DEFINE TGSetList := TSetListPointer}
46{$DEFINE TGSet := TSetPointer}
47{$DEFINE IMPLEMENTATION}
48{$I 'GenericSet.inc'}
49
50end.
Note: See TracBrowser for help on using the repository browser.