Delphi 中用 Xml 配置文档生成 Treeview:

Delphi 中用 Xml 配置文档生成 Treeview:
    用递归方法，使用 xml 文档生成 Treeview 树形视图。由于是动态生成，所以可以通过修改 xml 的逻辑来定制 Treeview 的结构， 从而实现了 xml 对 Treeview 的动态配置，而不用修改代码。

 

1. <?xml version="1.0" encoding="gb2312"?> 
2. <root topic="频道列表" catalog="none"> 
4. <channel topic="操作系统" catalog="none"> 
5. <channel topic="Windows频道" catalog="windows" /> 
6. <channel topic="DOS频道" catalog="dos" /> 
7. <channel topic="Linux" catalog="linux" /> 
8. </channel> 
10. <channel topic="菜鸟专区" catalog="cainiaozhuanqu" /> 
12. <channel topic="应用软件" catalog="app" /> 
14. <channel topic="安全专区" catalog="safe" /> 
16. <channel topic="代码实验室" catalog="lab" /> 
18. <BBS topic="电脑学习社区" catalog="none"> 
19. <subBBS topic="子社区-1" catalog="sub1" /> 
20. <subBBS topic="子社区-2" catalog="sub2" /> 
21. </BBS> 
23. </root>

 

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, ComCtrls, StdCtrls, XMLDoc, XMLIntf;
9. type
10.   TForm1 = class(TForm)
11.     Memo1: TMemo;
12.     Button1: TButton;
13.     TreeView1: TTreeView;
14.     procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
15.       Shift: TShiftState; X, Y: Integer);
16.     procedure Button1Click(Sender: TObject);
17.   private
18.     { Private declarations }
19.     procedure CreateTreeview(XmlNode: IXMLNode; TreeNode: TTreeNode);
20.   public
21.     { Public declarations }
22.   end;
24. type
25.   pRec = ^TData;
26.   TData = record
27.     sCatalog: string;
28.     sReserved: string
29.   end;
31. var
32.   Form1: TForm1;
34. implementation
36. {$R *.dfm}
38. procedure TForm1.CreateTreeview(XmlNode: IXMLNode; TreeNode: TTreeNode);
39. var
40.   i: integer;
41.   ParentTreeNode, CurrentTreeNode: TTreeNode;
42.   pData: pRec;
43. begin
44.   New(pData);
45.   pData^.sCatalog := XmlNode.AttributeNodes['catalog'].NodeValue;
46.   CurrentTreeNode := TreeView1.Items.AddChildObject(TreeNode,
47.     XmlNode.AttributeNodes['topic'].NodeValue, pData); //pointer(...)
48.   if XmlNode.HasChildNodes then
49.   begin
50.     ParentTreeNode := CurrentTreeNode;
51.     for i := 0 to XmlNode.ChildNodes.Count - 1 do
52.     begin
53.       CreateTreeview(XmlNode.ChildNodes[i], ParentTreeNode);
54.     end;
55.   end;
56. end;
58. procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
59.   Shift: TShiftState; X, Y: Integer);
60. var pData: pRec;
61. begin
62.   pData := Treeview1.Selected.Data;
63.   Memo1.Lines.Add(pData^.sCatalog);
64. end;
66. procedure TForm1.Button1Click(Sender: TObject);
67. var
68.   oXml: TXMLDocument;
69. begin
70.   oXml := TXMLDocument.Create(self);
71.   oXml.FileName := 'PXML.xml';
72.   oXml.Active := true;
73.   CreateTreeview(oXml.ChildNodes.FindNode('root'), Treeview1.Items.GetFirstNode);
74.   Treeview1.FullExpand;
75.   oXml.Free;
76. end;
78. end.