Load XML string in to TTreeView
-
I have GUI control TTreeView. My goal is populate the TTreeNodes after reading xml from the file system. My XML looks like:
<1 id="child">
<2 id="child">Note: There could be more levels of parent and child nesting. I did search internet but nothing strike my mind as a straight forward answer. Would appreciate any help I can get.
-
I have GUI control TTreeView. My goal is populate the TTreeNodes after reading xml from the file system. My XML looks like:
<1 id="child">
<2 id="child">Note: There could be more levels of parent and child nesting. I did search internet but nothing strike my mind as a straight forward answer. Would appreciate any help I can get.
Hi!
procedure LoadDocument( ADocument : IXMLDocument;ATreeview : TTreeView );
procedure AddXMLNode( AXmlNode : IXMLNode;AParent : TTreeNode );
var tvNode : TTreViewNode;
ChildIndex : Integer;
begin
tvNode := ATreeView.Items.Add( AParent,'' );
// your tvNode stuff goes here
if AXMLNode.ChildrenCount > 0 Then
begin
for ChildIndex := 0 to AXMLNode.ChildrenCount - 1 do
begin
AddXMLNode( AXMLNode.Children [ ChildIndex ],tvNode );
end;
end;
end;
begin
AddXMLNode( AXMLDocument.RootNode, nil );
end;Adjust and fix compiler errors. A
-
Hi!
procedure LoadDocument( ADocument : IXMLDocument;ATreeview : TTreeView );
procedure AddXMLNode( AXmlNode : IXMLNode;AParent : TTreeNode );
var tvNode : TTreViewNode;
ChildIndex : Integer;
begin
tvNode := ATreeView.Items.Add( AParent,'' );
// your tvNode stuff goes here
if AXMLNode.ChildrenCount > 0 Then
begin
for ChildIndex := 0 to AXMLNode.ChildrenCount - 1 do
begin
AddXMLNode( AXMLNode.Children [ ChildIndex ],tvNode );
end;
end;
end;
begin
AddXMLNode( AXMLDocument.RootNode, nil );
end;Adjust and fix compiler errors. A
Thanks a lot for the help.