Utilizo a seguinte fun��o para carregar os dados e depois inserir no BD:[code=delphi]var Loop: Integer;begin XML := TXMLDocument.Create(self); for Loop := 0 to Memo1.Lines.Count -1 do...

Loop para ler XMLs

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

Curtir t�pico + 0

Responder

Posts

16/08/2019

Emerson Nascimento

� 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.

Responder

Gostei + 0

16/08/2019

Gxf

obg pela resposta. no momento n�o poderei testar, mas assim que poss�vel tentarei desta forma. abs.

Responder

Gostei + 0

19/08/2019

Gxf

� 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"

Responder

Gostei + 0