Fórum Delphi x XMLNode.NodeType #526743

Bom dia!

manda o arquivo XML
e mais detalhes doq vc precisa processar neste arquivo.

Abraço!

Solução

// Monta a estrutura em árvore dentro do TreeView
GenereteTree(XMLNode: IXMLNode;
TreeNode: TTreeNode; TreeView: TTreeView );
var
liCont: Integer;
ltNewTreeNode : TTreeNode;
lsNodeText: string;
lxAttrNode: IXMLNode;
begin
lsNodeText := XmlNode.NodeName;

if XmlNode.IsTextElement then
begin
lsNodeText := lsNodeText + ' = ' + XmlNode.NodeValue;
end;

if (xmlNode.AttributeNodes.Count > 0) or XmlNode.HasChildNodes then
begin
ltNewTreeNode := TreeView.Items.AddChild(TreeNode, lsNodeText);
end;

// Add attributos
for liCont := 0 to xmlNode.AttributeNodes.Count - 1 do
begin
lxAttrNode := xmlNode.AttributeNodes.Nodes[liCont];
TreeView.Items.AddChild(ltNewTreeNode,
'[' + lxAttrNode.NodeName + ' = "' + lxAttrNode.Text + '"]');
end;

// Add cada filho
if XmlNode.HasChildNodes then
begin
for liCont := 0 to xmlNode.ChildNodes.Count - 1 do
begin
GenereteTree(XMLNode.ChildNodes[liCont], ltNewTreeNode, TreeView);
end;
end;
end;