Loop para ler XMLs

SQL Server

Delphi

XML

16/08/2019

Utilizo a seguinte função para carregar os dados e depois inserir no BD:

var
    Loop: Integer;
begin
    XML := TXMLDocument.Create(self);

    for Loop := 0 to Memo1.Lines.Count -1 do
      begin
        XML.LoadFromFile(Memo1.Lines[Loop]);
     end;



Porém estou testando num memo com 2 arquivos e ele só insere o segundo xml no bd e ignora o primeiro.

Algm poderia me ajudar?

abs.
Gxf

Gxf

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

16/08/2019

é preciso conhecer todo o código. observando este trecho, sempre o último será inserido.
precisa ser algo assim:
var
    Loop: Integer;
begin
    XML := TXMLDocument.Create(self);
 
    for Loop := 0 to Memo1.Lines.Count -1 do
    begin
        XML.LoadFromFile(Memo1.Lines[Loop]);
        [insere no banco];
    end;
end;
ou seja: a cada leitura de linha, faz a inclusão no banco.
GOSTEI 0
Gxf

Gxf

16/08/2019

obg pela resposta. no momento não poderei testar, mas assim que possível tentarei desta forma. abs.
GOSTEI 0
Gxf

Gxf

16/08/2019

é preciso conhecer todo o código. observando este trecho, sempre o último será inserido.
precisa ser algo assim:
var
    Loop: Integer;
begin
    XML := TXMLDocument.Create(self);
 
    for Loop := 0 to Memo1.Lines.Count -1 do
    begin
        XML.LoadFromFile(Memo1.Lines[Loop]);
        [insere no banco];
    end;
end;
ou seja: a cada leitura de linha, faz a inclusão no banco.




Seguindo este exemplo ele retorna: "no active document"
GOSTEI 0
POSTAR