Tenho o código abaixo, porém no nó do [ICMS]. ele põe na mesma linha não estou conseguindo ler os filhos. Acontecendo o mesmo com o [PIS] e [COFINS].* Ele não obedece o nível 2. Como pegar ou checar se tem mais Niveis ou nó? Agradeço a quem puder ajudar...
procedure TForm1.Button1Click(Sender: TObject);
var Doc: IXMLDOMDocument;
node_pai,
node_filho: IXMLDOMNode;
node_lista: IXMLDOMNodeList;
i, j: Integer;
begin
Memo1.Lines.Clear;
Doc := CoDOMDocument.Create;
Doc.load(
'<imposto> '+
' <vItem12741>8.25</vItem12741>'+
' <ICMS> '+
' **<ICMS00>** '+
' <Orig>0</Orig> '+
' <CST>00</CST> '+
' <pICMS>18.00</pICMS> '+
' <vICMS>4.53</vICMS> '+
' </ICMS00> '+
' </ICMS> '+
' <PIS> '+
' <PISAliq> '+
' <CST>01</CST> '+
' <vBC>25.15</vBC> '+
' <pPIS>0.0000</pPIS> '+
' <vPIS>0.00</vPIS> '+
' </PISAliq> '+
' </PIS> '+
' <COFINS> '+
' <COFINSAliq> '+
' <CST>01</CST> '+
' <vBC>25.15</vBC> '+
' <pCOFINS>0.0000</pCOFINS>'+
' <vCOFINS>0.00</vCOFINS> '+
' </COFINSAliq> '+
' </COFINS> '+
'</imposto> '
);
Doc.async := False;
node_lista := Doc.selectNodes('//'+Edit1.Text);
repeat
node_pai := node_lista.nextNode;
if (node_pai = nil) then
Break;
Memo1.Lines.Add(node_pai.baseName);
// Nó do Pai ou Nível 1
for i := 0 to node_pai.childNodes.length -1 do
begin
node_filho := node_pai.childNodes[i];
if (node_filho <> nil) and
(node_pai.childNodes[i].childNodes.length > 1) then
begin
// Nó do filho ou Nível 2
for j := 0 to node_pai.childNodes[i].childNodes.length -1 do
Memo1.Lines.Add('<' +
node_pai.childNodes[i].childNodes.item[j].nodeName + '> '
+ node_pai.childNodes[i].childNodes.item[j].text);
end
else
// Nó do Pai ou Nível 1
Memo1.Lines.Add('<' + node_pai.childNodes.item[i].nodeName +
'> ' + node_pai.childNodes.item[i].text);
end;
until (node_pai = nil);
end;
Trecho do XML
<imposto>
<vItem12741>8.25</vItem12741>
<ICMS>
<ICMS00>
<Orig>0</Orig>
<CST>00</CST>
<pICMS>18.00</pICMS>
<vICMS>4.53</vICMS>
</ICMS00>
</ICMS>
<PIS>
<PISAliq>
<CST>01</CST>
<vBC>25.15</vBC>
<pPIS>0.0000</pPIS>
<vPIS>0.00</vPIS>
</PISAliq>
</PIS>
<COFINS>
<COFINSAliq>
<CST>01</CST>
<vBC>25.15</vBC>
<pCOFINS>0.0000</pCOFINS>
<vCOFINS>0.00</vCOFINS>
</COFINSAliq>
</COFINS>
</imposto>