Context Navigation

SpecializedSet.pas

Last change on this file was 1, checked in by chronos, 8 years ago
Imported initial version.
File size: 1014 bytes

Line
1	unit SpecializedSet;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils;
9
10	type
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
29	implementation
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
50	end.

Note: See TracBrowser for help on using the repository browser.