Dúvida com MEMO e XML

Delphi

XML

26/07/2019

Tenho um memo onde seleciono DOIS arquivos XML por exemplo, e utilizo o seguinte para carregar no XML:

for i := 0 to memo1.lines.count -1 do
begin
XML.LoadFromFile(memo1.lines.text[i]);
end;



Porém ele só pega o 2º arquivo do memo. Alguém tem ideia do pq isso ocorre?


Abs!
Gxf

Gxf

Curtidas 0

Respostas

Gxf

Gxf

26/07/2019

.
.
.
.
GOSTEI 0
Kamila Gomes

Kamila Gomes

26/07/2019

No lugar de

XML.LoadFromFile(memo1.lines.text[i]);

tente usar XML.LoadFromFile(memo1.lines[i]);

fiz o seguinte código pra testar e deu certo:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    xml:String;
    nomexml:String;
begin
  for i := 0 to memo1.lines.count -1 do
  begin
    xml:= memo1.lines[i];
    XMLDocument1.LoadFromFile(memo1.lines[i]);
    nomexml:= XMLDocument1.FileName;
  end;
end;


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

26/07/2019

você quer adicionar o conteúdo dos dois arquivo num mesmo XML?
se for isso, faça algo assim:
  strings := TStringList.Create;
  for i := 0 to memo1.lines.count -1 do
  begin
    strings.LoadFromFile(memo1.lines[i]); // aqui carrego o arquivo no objeto strings
    XML.Lines.AddStrings(strings); // e adiciono o conteúdo no XML
  end;
  FreeAndNil(strings);

GOSTEI 0
Gxf

Gxf

26/07/2019

No caso o que desejo exatamente é pegar os XML que estão dentro do MEMO e salvar no banco de dados. Fazendo da forma que citei ele pega somente 1 arquivo. Qndo possível irei testar os exemplos passados aqui;
GOSTEI 0
POSTAR