Fórum Como juntar 2 arquivos texto #283062

procedure TForm1.Button1Click(Sender: TObject);
var
sArquivo1,sArquivo2 : TStringList;
begin

  sArquivo1 := TStringList.Create;
  sArquivo2 := TStringList.Create;
  sArquivo1.LoadFromFile(´C:\temp\arquivo1.txt´);
  sArquivo2.LoadFromFile(´C:\temp\arquivo2.txt´);
  sArquivo1.AddStrings(sArquivo2);
  sArquivo1.SaveToFile(´C:\temp\novo.txt´);
  sArquivo1.Free;
  sArquivo2.Free;
end;