最火下载站首页
手机版
最火下载站
关注公众号
最火下载站

当前位置:首页 > 网络知识 > Web前端 > 工具与技巧> 使用NativeXML来将XML文件以树状结构显示

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

文章作者:网友投稿 发布时间:2008-12-03 来源:网络

使用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;

上一篇: Macromedia Dreamweaver 8 用字符串连接数据库出错

下一篇: 解决Dreamweaver cs3占用系统资源过高

共有0条评论网友评论

游戏排行榜