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]