Como juntar 2 arquivos texto

Delphi

27/05/2005

Oi pessoal

Alguem sabe como juntar o conteúdo de 2 arquivos texto em um só ?

exemplo: tenho o arquivo1.txt e arquivo2.txt, eu quero copiar o conteúdo do arquivo2.txt para o final do arquivo1.txt.

obrigado.


Josinaldo

Josinaldo

Curtidas 0

Respostas

Macario

Macario

27/05/2005

Ola programador.

Voce pode estar utilizando ums TStringList, para isso.


StringLis.LoafFromFile(´Nome doArquivo1.txt´);
StringLis.LoafFromFile(´Nome doArquivo2.txt´);

e depois salvar

StringLis.SaveFromFile(´NomedoNovoArquivo.txt´);


Espero que ajude.


GOSTEI 0
Macario

Macario

27/05/2005

Opa corrigindo


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;



GOSTEI 0
POSTAR