Dúvida com XML.
Caros.
Tenho a procedure abaixo dentro do clique de um botão. Está tudo certo. O XML que está alimentando o vXMLDoc está na mesma pasta onde se encontra o executável. A minha grande dúvida (tenho muitas em relação ao XML) e vou me abster a esta é:
Como ler sequencialmente, digamos, 100 xml's dentro de uma pasta 'C:\\Teste' ?? (O exe está numa outra pasta ex. c:\\sistema). Quais componentes, comandos, usar. Uso delphi XE5.
procedure TForm1.btn1Click(Sender: TObject);
var
vXMLDoc:TXMLDocument;
Node01,Node02,Node03: IXMLNode;
begin
vXMLDoc:=TXMLDocument.Create(Self);
vXMLDoc.LoadFromFile('43160701065411000128650020000041651256793449-nfce.xml');
Node01:= vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
Node02:= Node01.ChildNodes.FindNode('infNFe');
Node03:= Node02.ChildNodes.FindNode('pag');
showmessage('Condição de pagamento desta NFCe é: '+ Node03.ChildNodes['tPag'].Text);
end;
end.
Tenho a procedure abaixo dentro do clique de um botão. Está tudo certo. O XML que está alimentando o vXMLDoc está na mesma pasta onde se encontra o executável. A minha grande dúvida (tenho muitas em relação ao XML) e vou me abster a esta é:
Como ler sequencialmente, digamos, 100 xml's dentro de uma pasta 'C:\\Teste' ?? (O exe está numa outra pasta ex. c:\\sistema). Quais componentes, comandos, usar. Uso delphi XE5.
procedure TForm1.btn1Click(Sender: TObject);
var
vXMLDoc:TXMLDocument;
Node01,Node02,Node03: IXMLNode;
begin
vXMLDoc:=TXMLDocument.Create(Self);
vXMLDoc.LoadFromFile('43160701065411000128650020000041651256793449-nfce.xml');
Node01:= vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
Node02:= Node01.ChildNodes.FindNode('infNFe');
Node03:= Node02.ChildNodes.FindNode('pag');
showmessage('Condição de pagamento desta NFCe é: '+ Node03.ChildNodes['tPag'].Text);
end;
end.
Romario Kilian
Curtidas 0
Melhor post
Raimundo Pereira
29/08/2016
Use o filelistbox para carregar arquivos da pasta do executável
Set o índex para 0 e realize um for
Set o índex para 0 e realize um for
GOSTEI 1
Mais Respostas
Romario Kilian
28/08/2016
P2 obrigado por responder.
Procurei na internet e não achei quase nada de exemplos, literatura desse componente FileListBox.
Se alguem tiver exemplos ou apostilas sobre o referido, por favor, postem aqui.
Preciso dos comandos de como percorrer a lista, selecionar etc.
Obrigado
Procurei na internet e não achei quase nada de exemplos, literatura desse componente FileListBox.
Se alguem tiver exemplos ou apostilas sobre o referido, por favor, postem aqui.
Preciso dos comandos de como percorrer a lista, selecionar etc.
Obrigado
GOSTEI 1
Raimundo Pereira
28/08/2016
......
GOSTEI 1