Eu tentari assim:
 
var
  Arquivo1, Arquivo2, ArquivoSaida: TextFile;
  Linha: string;
begin
  //Abre os dois primeiros arquivos para leitura "Reset"
  AssignFile(Arquivo1, 'C:\a.txt');
  Reset(Arquivo1);
  AssignFile(Arquivo2, 'C:\b.txt');
  Reset(Arquivo2);
 
  //Abre o ultimo arquivo como para escrita "Rewrite"
  AssignFile(ArquivoSaida, 'C:\saida.txt');
  Rewrite(ArquivoSaida);
 
  //Enquanto não for fim do arquivo, vai lendo o primeiro arquivo e gravando
no arquivo de saida
  while not EoF(Arquivo1) do
    begin
      ReadLn(Arquivo1, Linha);
      WriteLn(ArquivoSaida, Linha);
    end;
  CloseFile(Arquivo1);
 
  //Enquanto não for fim do arquivo, vai lendo o segundo arquivo e gravando
no arquivo de saida
  while not EoF(Arquivo2) do
    begin
      ReadLn(Arquivo2, Linha);
      WriteLn(ArquivoSaida, Linha)
    end;
  CloseFile(Arquivo2);
 
//Já está tudo no arquivo de saida
  CloseFile(ArquivoSaida);
end;
 

  _____  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de stainle2003
Enviada em: sexta-feira, 16 de fevereiro de 2007 16:11
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Arquivo Texto



não consigo a partir de dois arquivos texto juntá-los num terceiro, 
alguém sabe outra madeira ou o que está errado no código abaixo.
grato
Stainle

procedure TForm1.Button1Click(Sender: TObject);
var
dirzip, destzip, dirtemp, sentenca : string;
begin
dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt';
destzip := 'p:\servidor\003\Saida\plestdia.txt';
dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt';
CopyFile(pchar(destzip), pchar(dirtemp), false);
destzip := 'p:\servidor\003\Saida\pleststa.txt';
sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp 
+ ' ' + destzip;
ShowMessage(dirzip);
ShowMessage(dirtemp);
ShowMessage(destzip);
ShowMessage(sentenca);
WinExec(pchar(sentenca), sw_ShowNormal);
end;



 


[As partes desta mensagem que não continham texto foram removidas]

Responder a