Como copiar o conteudo do File1 e File2 para o FILE3

Question

Oi,Algume me ensine algo:Tenho o ficheiro1 cujo conteudo � : �Linha de Teste 1�Tenho o ficheiro2 cujo conteudo � : �Linha de Teste 2�como fa�o para pegar no ficheiro1 e ficheiro2 e criar o ficheiro3 c...

Vitor Alcantara · Answer

Voc� que pegar os dados que est�o em um arquivo de texto e juntar com outro e criar um terceiro?
Se for isso voc� pode utilizar-se de TextFile para fazer isso.

Tenta isso ai pra ver.

var
  f:TextFile;
  sAux:String;
  Buffer:tStringList;
Begin
  Buffer := tStringList.Create;
  //Ler o arquivo1 e joga na variavel buffer
  AssignFile(f,�c:\Arquivo1.txt�);
  Reset(f);//Abre o arquivo e coloca o ponteiro na primeira linha
  while not EOF(f) do //La�o que testa se repete at� o arquivo chegar no final
  Begin
    ReadLn(f,sAux);//Ler a linha atual e joga na variavel sAux o conteudo da linha e depois vai para proxima linha
    Buffer.ADD(sAux);
  end;
  CloseFile(f);//Fecha o arquivo
  
   //Agora � s� fazer o mesmo no segundo arquivo.
  AssignFile(f,�c:\Arquivo2.txt�);
  Reset(f);//Abre o arquivo e coloca o ponteiro na primeira linha
  while not EOF(f) do //La�o que testa se repete at� o arquivo chegar no final
  Begin
    ReadLn(f,sAux);//Ler a linha atual e joga na variavel sAux o conteudo da linha e depois vai para proxima linha
    Buffer.ADD(sAux);
  end;
  CloseFile(f);//Fechou o Segundo Arquivo

  //Agora � s� gravar o conteudo de Buffer em um arquivo de texto
  Buffer.SaveToFile(�c:\Arquivo3.Txt�);
  
end;

F�rum Como copiar o conteudo do File1 e File2 para o FILE3 #349105