树操作的简便过程

  为了使繁杂的树操作变得简单，特此写了以下这个单元。为了节省时间，这个单元没有面向对象，而仅仅是通过过程来实现的，它可以被使用在任何版本的Delphi，从而完成简便的树操作

1. unit TreeCtrls;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs,ComCtrls;
9. function NodeMoveUp(TreeNode: TTreeNode): boolean;
10. function NodeMoveDown(TreeNode: TTreeNode): boolean;
11. function NodeDelete(TreeNode:TTreeNode;Hint,Title:string;Form:TForm):boolean;
12. function NodeAddLast(Tree:TTreeview;NodeName:string):boolean;
13. function NodeAddFirst(Tree:TTreeview;NodeName:string):boolean;
14. function NodeAddChildLast(Tree:TTreeview;NodeName:string):boolean;
15. function NodeAddChildFirst(Tree:TTreeview;NodeName:string):boolean;
16. function GetAllChild(TreeNode:TTreeNode;Item:TStrings):boolean;
18. implementation
20. //结点向上移
21. function NodeMoveUp(TreeNode: TTreeNode): boolean;
22. begin
23.   if TreeNode=nil then
24.   begin
25.     result:=false;
26.     exit;
27.   end;
28.   //如果已是最上面的结点
29.   if TreeNode.getPrevSibling = nil then
30.   begin
31.     result := false;
32.     exit;
33.   end;
34.   //如果上一个结点是父结点
35.   if treenode.GetPrev=treenode.Parent then
36.   begin
37.     result:=false;
38.     exit;
39.   end;
40.   //正常情况
41.   treenode.MoveTo(treenode.getPrevSibling,nainsert);
42.   result:=true;
43. end;
45. //结点向下移
46. function NodeMoveDown(TreeNode: TTreeNode): boolean;
47. var
48.   TempNode:TTreeNode;
49. begin
50.   if TreeNode=nil then
51.   begin
52.     result:=false;
53.     exit;
54.   end;
55.   //如果已是最后一个结点
56.   if TreeNode.getNextSibling = nil then
57.   begin
58.     result := false;
59.     exit;
60.   end;
61.   //如果是倒数第二个结点
62.   if treenode.getNextSibling.getNextSibling=nil then
63.   begin
64.     TempNode:=treenode.getNextSibling;
65.     NodeMoveUp(TempNode);
66.     result:=true;
67.     exit;
68.   end;
69.   //正常情况
70.   Treenode.MoveTo(treenode.getNextSibling.getNextSibling,nainsert);
71.   result:=true;
72. end;
74. //删除结点
75. function NodeDelete(TreeNode:TTreeNode;Hint,Title:string;Form:TForm):boolean;
76. var
77.   Res:integer;
78. begin
79.   if TreeNode=nil then
80.   begin
81.     result:=false;
82.     exit;
83.   end;
84.   //如果包含子结点
85.   if treenode.HasChildren=true then
86.   begin
87.     messagebox(form.Handle,'该目录包含有子目录，不能删除','提示',MB_OK);
88.     result:=false;
89.     exit;
90.   end;
91.   RES:=messagebox(form.Handle,pchar(hint),pchar(title),MB_YESNO);
92.   if Res=6 then
93.   begin
94.     treenode.Delete;
95.     result:=true;
96.   end
97.   else
98.   begin
99.     result:=false;
100.   end;
101. end;
103. //添加(父)同级结点到末尾
104. function NodeAddLast(Tree:TTreeview;NodeName:string):boolean;
105. begin
106.   try
107.     tree.Items.Add(tree.Selected,NodeName);
108.   except
109.     begin
110.       result:=false;
111.       exit;
112.     end;
113.   end;
114.   result:=true;
115. end;
117. //添加(父)同级结点到首位
118. function NodeAddFirst(Tree:TTreeview;NodeName:string):boolean;
119. begin
120.   try
121.     tree.Items.AddFirst(tree.Selected,NodeName);
122.   except
123.     begin
124.       result:=false;
125.       exit;
126.     end;
127.   end;
128.   result:=true;
129. end;
131. //添加(子)同级结点到末尾
132. function NodeAddChildLast(Tree:TTreeview;NodeName:string):boolean;
133. begin
134.   try
135.     tree.Items.AddChild(tree.Selected,NodeName);
136.   except
137.     begin
138.       result:=false;
139.       exit;
140.     end;
141.   end;
142.   result:=true;
143. end;
145. //添加(子)同级结点到首位
146. function NodeAddChildFirst(Tree:TTreeview;NodeName:string):boolean;
147. begin
148.   try
149.     tree.Items.AddChildFirst(tree.Selected,NodeName);
150.   except
151.     begin
152.       result:=false;
153.       exit;
154.     end;
155.   end;
156.   result:=true;
157. end;
159. //遍历所有子结点
160. function GetAllChild(TreeNode:TTreeNode;Item:TStrings):boolean;
161. var
162.   ND:TTreeNode;
163.   ChildNum:integer;
164.   i:integer;
165. begin
166.   if TreeNode=nil then
167.   begin
168.     result:=false;
169.     exit;
170.   end;
171.   if TreeNode.HasChildren=true then
172.   begin
173.     ChildNum:=treenode.Count;
174.     ND:=treenode.getFirstChild;
175.     for i:=1 to ChildNum do
176.     begin
177.       item.Add(nd.Text);
178.       nd:=nd.getNextSibling;
179.     end;
180.     result:=true;
181.   end
182.   else
183.     result:=false;
184. end;
186. end.