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

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