procedure TForm1.BitBtn1Click(Sender: TObject);
procedure add(T: IXMLNode;
N: TTreeNode) ;
Var i : integer ;
V :TTreeNode ;
begin
if T.NodeType = ntElement then
begin
V:=TreeView1.Items.AddChild(N,t.NodeName);
for i := 0 to t.ChildNodes.Count-1do
begin
add(T.ChildNodes,V);
end ;
end ;
end;
var j : integer ;
begin
for j:= 0 to XMLDocument1.ChildNodes.Count-1do
begin
add(XMLDocument1.ChildNodes[j], nil);
end ;
end;
