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