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

Last change on this file was 6, checked in by chronos, 10 years ago
  • Added: Now opened projects are remembered between application restarts.
  • Added: Show basic list of files in selected project.
  • Added: Packages Common and TemplateGenerics.
File size: 1.7 KB
Line 
1unit SpecializedTree;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11{$MACRO ON}
12// TTreeInteger<Integer, Integer>
13{$DEFINE TGTreeIndex := Integer}
14{$DEFINE TGTreeItem := Integer}
15{$DEFINE TGTree := TTreeInteger}
16{$DEFINE TGTreeNode := TTreeNodeInteger}
17{$DEFINE TGTreeNodeList := TTreeNodeListInteger}
18{$DEFINE INTERFACE}
19{$I 'GenericTree.inc'}
20
21// TTreeString<Integer, string>
22{$DEFINE TGTreeIndex := Integer}
23{$DEFINE TGTreeItem := string}
24{$DEFINE TGTree := TTreeString}
25{$DEFINE TGTreeNode := TTreeNodeString}
26{$DEFINE TGTreeNodeList := TTreeNodeListString}
27{$DEFINE INTERFACE}
28{$I 'GenericTree.inc'}
29
30// TTreePointer<Integer, Pointer>
31{$DEFINE TGTreeIndex := Integer}
32{$DEFINE TGTreeItem := Pointer}
33{$DEFINE TGTree := TTreePointer}
34{$DEFINE TGTreeNode := TTreeNodePointer}
35{$DEFINE TGTreeNodeList := TTreeNodeListPointer}
36{$DEFINE INTERFACE}
37{$I 'GenericTree.inc'}
38
39implementation
40
41{$DEFINE IMPLEMENTATION_USES}
42{$I 'GenericTree.inc'}
43
44// TTreeInteger<Integer, Integer>
45{$DEFINE TGTreeIndex := Integer}
46{$DEFINE TGTreeItem := Integer}
47{$DEFINE TGTree := TTreeInteger}
48{$DEFINE TGTreeNode := TTreeNodeInteger}
49{$DEFINE TGTreeNodeList := TTreeNodeListInteger}
50{$DEFINE IMPLEMENTATION}
51{$I 'GenericTree.inc'}
52
53// TTreeString<Integer, string>
54{$DEFINE TGTreeIndex := Integer}
55{$DEFINE TGTreeItem := string}
56{$DEFINE TGTree := TTreeString}
57{$DEFINE TGTreeNode := TTreeNodeString}
58{$DEFINE TGTreeNodeList := TTreeNodeListString}
59{$DEFINE IMPLEMENTATION}
60{$I 'GenericTree.inc'}
61
62// TTreePointer<Integer, Pointer>
63{$DEFINE TGTreeIndex := Integer}
64{$DEFINE TGTreeItem := Pointer}
65{$DEFINE TGTree := TTreePointer}
66{$DEFINE TGTreeNode := TTreeNodePointer}
67{$DEFINE TGTreeNodeList := TTreeNodeListPointer}
68{$DEFINE IMPLEMENTATION}
69{$I 'GenericTree.inc'}
70
71end.
Note: See TracBrowser for help on using the repository browser.