Solucao para esse algoritimo

Question

Ola , estou exportando dados de arquivo txt para meu db, para os campo Nome,Endereco, Bairro+cidade-estado-cep, mas em alguns aparece uma quarta linha tipo de comercio que nao � para ser inserida.ex:A...

Elcilei · Answer

conseguir reselver , agora e o sequinte tem mais de 500 arquivos txt em uma pasta , no momento estou copiando e colando o nome do arquivo no edit tem como fazer isso altomaticamente....

Micheus · Answer

[quote:e493cfd65e=�elcilei�]conseguir reselver , agora e o sequinte tem mais de 500 arquivos txt em uma pasta , no momento estou copiando e colando o nome do arquivo no edit tem como fazer isso altomaticamente.[/quote:e493cfd65e]Este exemplo lista os arquivos em um path, utilizando a m�scara �*.txt�, e carrega seu conte�do em um componente TStringList para ser manipulado linha-a-linha. Veja se lhe ajuda:[code:1:e493cfd65e]procedure Form1.ProcessaArquivos(Path :String);var  Idx :Integer;  FileInfo :TSearchRec;  FileTXT :TStringList;begin  SetCurrentDir(Path);  if FindFirst(�*.txt�, faArchive, FileInfo) = 0 then  begin    FileTXT := TStringList.Create;    repeat      FileTXT.LoadFromFile(FileInfo.Name);{      *** Aqui faz processamento da lista a qual cont�m as linhas do arquivo}      FileTXT.Clear;    until FindNext(FileInfo) <> 0;    FileTXT.Free;    FindClose(FileInfo);  end;end;[/code:1:e493cfd65e][]s...

F�rum Solucao para esse algoritimo #334517