软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > Web前端 > 工具与技巧 > 使用NativeXML来将XML文件以树状结构显示

使用NativeXML来将XML文件以树状结构显示

使用NativeXML来将XML文件以树状结构显示

以下为引用的内容:

procedure TForm4.Button1Click(Sender: TObject);
var
  ADoc: TNativeXml;
begin
  TreeView1.Items.Clear;
  ADoc := TNativeXml.Create;
  try
    ADoc.LoadFromFile(XMLFile);
    if assigned(ADoc.Root) then
    DisplayNodeInfo(ADoc.Root,nil);
  finally
    ADoc.Free;
  end;
end;

procedure TForm4.DisplayNodeInfo(vNode: TXMLNode;PNode:TTreeNode);
var
  i,j:Integer;
  aNode,CurNode:TTreeNode;
begin
  aNode:=TreeView1.Items.AddChild(PNode,vNode.Name);
  for j := 0 to vNode.AttributeCount - 1 do
  begin
    CurNode:=TreeView1.Items.AddChild(aNode,vNode.AttributeName[j]);
    TreeView1.Items.AddChild(CurNode,vNode.AttributeValue[j]);
  end;
  for I := 0 to vNode.NodeCount - 1 do
    DisplayNodeInfo(vNode.Nodes[i],aNode);
  if vNode.ValueAsString<>'' then
    TreeView1.Items.AddChild(PNode,vNode.ValueAsString);
end;

    相关阅读
    网友评论
    栏目导航
    推荐软件