Fórum Dúvida com MEMO e XML #603944

26/07/2019

0

Delphi XML

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

Responder

Posts

26/07/2019

Gxf

.
.
.
.
Responder

Gostei + 0

22/08/2019

Kamila Gomes

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;


Responder

Gostei + 0

23/08/2019

Emerson Nascimento

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);

Responder

Gostei + 0

23/08/2019

Gxf

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;
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar