ler N arquivos XML com delphi

11/07/2019

5

Boa tarde.

Consigo pegar UM arquivo XML utilizando " OpenDialog.FileName := edit1.text"; e salvo as informações do XML no banco de dados, até ai tudo bem.

Porém preciso pegar DIVERSOS arquivos XML para fazer o mesmo processo. Como ficaria um loop para ler todos os arquivos?

Abs!
Responder

Post mais votado

12/07/2019

De uma olhada neste link https://www.devmedia.com.br/quick-tip-listar-arquivos-de-um-diretorio/15724

Basicamente você deve ler todos os arquivos da pasta e adicionar a um TStringList, TStrings, etc... (da forma que achar melhor, mas precisa ser uma lista)
depois percorre a Lista e vai salvando no seu banco de dados.
Responder

Mais Posts

12/07/2019

Gabryel

Algm poderia me ajudar?
Responder

17/07/2019

Gabryel

Consegui colocar os arquivos no memo utilizando:

  for i:= 0 to opendialog1.Files.count-1 do
  Memo1.Lines.Add(ExtractFileName(OpenDialog1.Files.Strings[i]));


Porém não consegui implementar 100% para ler a lista e inserir no banco, esta inserindo o mesmo item e ocorre "primary key"
Responder