pra unir, faça assim:
var origem1, origem2, destino : textfile; s : string; begin assignfile(origem1,'c:\arquivo1.txt'); assignfile(origem2,'c:\arquivo2.txt'); assignfile(destino,'C:\NOVOARQUIVO.TXT'); reset(origem1); reset(origem2) rewrite(destino); while not eof(origem1) do begin readln(origem1,s); writeln(destino,s); end; while not eof(origem2 do begin readln(origem2s); writeln(destino,s); end; closefile(origem1); closefile(origem2; closefile(destino); end; ----- Original Message ----- From: stainle2003 To: delphi-br@yahoogrupos.com.br Sent: Friday, February 16, 2007 4:10 PM Subject: [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; __________ Informação do NOD32 IMON 2066 (20070216) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]