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.