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

Last change on this file was 29, checked in by chronos, 12 years ago
  • Modified: Packages stored as uncompressed files.
File size: 1.9 KB
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 TGSetSortCompare := TSetSortCompareInteger}
19{$DEFINE TGSetToStringConverter := TSetToStringConverterInteger}
20{$DEFINE TGSetFromStringConverter := TSetFromStringConverterInteger}
21{$DEFINE TGSetItemArray := TSetIntegerItemArray}
22{$DEFINE INTERFACE}
23{$I 'GenericSet.inc'}
24
25// TSetPointer<Integer, Pointer>
26{$DEFINE TGSetIndex := Integer}
27{$DEFINE TGSetItem := Pointer}
28{$DEFINE TGSetList := TSetListPointer}
29{$DEFINE TGSet := TSetPointer}
30{$DEFINE TGSetSortCompare := TSetSortComparePointer}
31{$DEFINE TGSetToStringConverter := TSetToStringConverterPointer}
32{$DEFINE TGSetFromStringConverter := TSetFromStringConverterPointer}
33{$DEFINE TGSetItemArray := TSetPointerItemArray}
34{$DEFINE INTERFACE}
35{$I 'GenericSet.inc'}
36
37implementation
38
39{$DEFINE IMPLEMENTATION_USES}
40{$I 'GenericSet.inc'}
41
42// TSetInteger<Integer, Integer>
43{$DEFINE TGSetIndex := Integer}
44{$DEFINE TGSetItem := Integer}
45{$DEFINE TGSetList := TSetListInteger}
46{$DEFINE TGSet := TSetInteger}
47{$DEFINE TGSetSortCompare := TSetSortCompareInteger}
48{$DEFINE TGSetToStringConverter := TSetToStringConverterInteger}
49{$DEFINE TGSetFromStringConverter := TSetFromStringConverterInteger}
50{$DEFINE TGSetItemArray := TSetIntegerItemArray}
51{$DEFINE IMPLEMENTATION}
52{$I 'GenericSet.inc'}
53
54// TSetPointer<Integer, Pointer>
55{$DEFINE TGSetIndex := Integer}
56{$DEFINE TGSetItem := Pointer}
57{$DEFINE TGSetList := TSetListPointer}
58{$DEFINE TGSet := TSetPointer}
59{$DEFINE TGSetSortCompare := TSetSortComparePointer}
60{$DEFINE TGSetToStringConverter := TSetToStringConverterPointer}
61{$DEFINE TGSetFromStringConverter := TSetFromStringConverterPointer}
62{$DEFINE TGSetItemArray := TSetPointerItemArray}
63{$DEFINE IMPLEMENTATION}
64{$I 'GenericSet.inc'}
65
66end.
Note: See TracBrowser for help on using the repository browser.