(Resolvido) Le Arquivos TXT e gerar arquivo único

[Guest --Maria --]

Olá

Tenho vários arquivos txt em uma pasta, gostaria de saber como faço para juntar todos esses arquivos em um só?

[Micheus]

Olá

Tenho vários arquivos txt em uma pasta, gostaria de saber como faço para juntar todos esses arquivos em um só?

Maria, se são realmente textos puros, você poderia fazer uso da classe TStringList para isso.

Seria mais ou menos assim (não testei):

var
  SR: TSearchRec;
  TxtLines,
  TxtFinal :TStringList;
  NomeArquivo :String;
begin
 // Dir deve ser substituído pelo diretório a pesquisar
  if FindFirst(Dir+'\*.txt', faArchive, SR) = 0 then
  begin
    TxtLines := TStringList.Create;
    TxtFinal := TStringList.Create;
    try
      repeat
        TxtLines.LoadFromFile(SR.Name);
       // adiciona conteúdo lido ao final da
       // lista de concatenação
        TxtFinal.AddStrings(TxtLines)
      until FindNext(SR) <> 0;
      FindClose(SR);
     // grava arquivos concatenados
      TxtFinal.SaveToFile('Arquivos Contatenados.txt');
    finally
      TxtLines.Free;
      TxtFinal.Free;
    end;
  end;
end;

Abraços

[Guest --Maria --]

Obrigada... deu certo!

[Guest rucanuso]

Valeu para mim também serviu.