Delphi 中用 Xml 配置文档生成 Treeview

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

    xml 文件如下：
    <?xml version="1.0" encoding="gb2312"?>
    <root topic="频道列表" catalog="none">

      <channel topic="操作系统" catalog="none">
        <channel topic="Windows频道" catalog="windows" />
        <channel topic="DOS频道" catalog="dos" />
        <channel topic="Linux" catalog="linux" />
      </channel>

      <channel topic="菜鸟专区" catalog="cainiaozhuanqu" />

      <channel topic="应用软件" catalog="app" />

      <channel topic="安全专区" catalog="safe" />

      <channel topic="代码实验室" catalog="lab" />

      <BBS topic="电脑学习社区" catalog="none">
        <subBBS topic="子社区-1" catalog="sub1" />
        <subBBS topic="子社区-2" catalog="sub2" />
      </BBS>

    </root>

    程序代码如下：

    unit tree_xml;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
      Forms, Dialogs, ComCtrls, StdCtrls, XMLDoc, XMLIntf;

      type
      TForm1 = class(TForm)
        TreeView1: TTreeView;
        Memo1: TMemo;
        Button1: TButton;
        procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
                       Shift: TShiftState; X, Y: Integer);
        procedure Button1Click(Sender: TObject);
      private
        function CreateTreeview(XmlNode: IXMLNode; TreeNode: TTreeNode):TTreeNode;
        { Private declarations }
      public
        { Public declarations }
      end;

      type
        pRec = ^TData;
        TData = record
          sCatalog: string;
          sReserved: String
      end;

    var
      Form1: TForm1;

    implementation
    {$R *.dfm}

    function TForm1.CreateTreeview(XmlNode: IXMLNode; TreeNode: TTreeNode): TTreeNode;
    var
      i: integer;
      ParentTreeNode, CurrentTreeNode: TTreeNode;
      pData: pRec;
    begin
      New(pData);
      pData^.sCatalog := XmlNode.AttributeNodes['catalog'].NodeValue;
      CurrentTreeNode := TreeView1.Items.AddChildObject(TreeNode,
                   XmlNode.AttributeNodes['topic'].NodeValue, pData); //pointer(...)
      if XmlNode.HasChildNodes then
      begin
        ParentTreeNode := CurrentTreeNode;
        for i:=0 to XmlNode.ChildNodes.Count-1 do
        begin
          CreateTreeview(XmlNode.ChildNodes[i], ParentTreeNode);
        end;
      end;
      result := CurrentTreeNode;
    end;

    {------------------------------------------------------------------}
    procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    var pData: pRec;
    begin
      pData := Treeview1.Selected.Data;
      Memo1.Lines.Add(pData^.sCatalog);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
      oXml: TXMLDocument;
    begin
      oXml := TXMLDocument.Create(self);
      oXml.FileName := '_Treeview.xml';
      oXml.Active:=true;
      CreateTreeview(oXml.ChildNodes.FindNode('root'), Treeview1.Items.GetFirstNode);
      Treeview1.FullExpand; //节点全部展开
      oXml.Free;
    end;

    end.

    注意程序中 Treeview 的 TreeView1.Items.AddChildObject 方法，其最后一个参数用来保存该节点的相关数据，是一个指针类型的数据，使用时要格外小心。本例中，先定义一个记录类型，再定义一个指针指向它，然后作为 AddChildObject 的最后一个参数。记录类型可以保存节点的很多相关参数，本例中只用到了一个，实际使用时可以任意扩充。

    ---“十万个为什么”电脑学习网-http://www.why100000.com-原创文章
     张庆（网眼）2007-10-22