era isto que não queria fazer; ficar lendo os arquivos, queria algum comando
como coloquei e que funciona no(DOS) que fizesse automaticamente;
mesmo assim grato pela ajuda.
Stainle
"Desenvolvimento (Anderson)" <[EMAIL PROTECTED]> escreveu:
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]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
