最火下载站首页
手机版
最火下载站
关注公众号
最火下载站
iphone应用 iphone游戏 安卓应用 安卓游戏 软件专题

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

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

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

使用NativeXML来将XML文件以树状结构显示 以下为引用的内容： procedure TForm4.Button1Click(Sender: TObject); var   ADoc: TNativeXml; begin   TreeView1.Items.Clear;   ADoc := TNativ

使用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条评论网友评论
最新安卓软件
游戏排行榜
热荐资讯
游戏