把多层次的 XML 文档解析为 TreeView 显示

XML 文档是一个有多层树形节点的文档。因为节点数不确定，所以要跟踪每个节点，需要用到递归。

肉眼阅读 XML 比较累，需要去对付一堆的尖括号。用 Delphi 程序把它显示为一个 TreeView 的树结构，比较容易用眼睛去看。

以下是我的代码，基于 Delphi 10.4 没使用第三方控件。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.UI.Intf, FireDAC.VCLUI.Wait, Data.DB, Vcl.StdCtrls,
  Vcl.Grids, Vcl.DBGrids, FireDAC.Comp.UI, FireDAC.Stan.StorageXML,
  FireDAC.Comp.DataSet, FireDAC.Comp.Client, Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc,
  Vcl.ComCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    XMLDocument1: TXMLDocument;
    TreeView1: TTreeView;
    Panel1: TPanel;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

    procedure CreateTreeView(ANode: IXMLNode; TreeNode: TTreeNode);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Rootnode,node : IXMLNode;
  nodelist:IXMLNodeList;
  b,c,str, S: string;
  i, j:Integer;
  StartItemNode: IXMLNode;
  ANode: IXMLNode;

  TotalAmount, StartDate, EndDate, DepositDate: string;
  DT: Cardinal;
begin
  if OpenDialog1.Execute() then
  begin
    DT := GetTickCount;
    Screen.Cursor := crHourGlass;
    try
      XMLDocument1.LoadFromFile(OpenDialog1.FileName);
      XMLDocument1.Active := True;

      Rootnode := XMLDocument1.DocumentElement;
      TreeView1.Items.BeginUpdate;
      try
        CreateTreeView(RootNode, Treeview1.Items.GetFirstNode);
      finally
        TreeView1.Items.EndUpdate;
      end;
    finally
      Screen.Cursor := crDefault;
    end;

    DT := GetTickCount -DT;
    S := '执行时间 = ' + FloatToStr(DT/1000) + ' 秒';
    ShowMessage(S);
  end;
end;

procedure TForm1.CreateTreeView(ANode: IXMLNode; TreeNode: TTreeNode);
var
  ParentTreeNode, CurrentTreeNode: TTreeNode;
  i: Integer;
begin
  //采用递归，把一个多层次的 XML 变成 TreeView 显示。测试通过。

  if ANode.HasChildNodes then
  begin
    CurrentTreeNode := TreeView1.Items.AddChild(TreeNode, ANode.NodeName);
    ParentTreeNode := CurrentTreeNode;
    for i:=0 to ANode.ChildNodes.Count-1 do
    begin
      CreateTreeview(ANode.ChildNodes[i], ParentTreeNode);
    end;
  end
  else
  begin
    TreeView1.Items.AddChild(TreeNode, VarToStr(ANode.NodeValue));
  end;
end;


end.