Nivaldo Stainle wrote:
> 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.
Não testei, corre o risco de funcionar com algum ajuste.
var
VLista, VArquivo, VTudoJunto: TStrings;
I: Integer;
begin
VLista := TStringList.Create;
try
// Crie uma lista com os arquivos
// Você pode ler esta lista do disco, ou pode ser
// fornecido por sua aplicação.
VLista.Add('arquivo1.txt');
VLista.Add('arquivo2.txt');
VLista.Add('arquivo3.txt');
...
// Junte os arquivos em um stringlist
VArquivo := TStringList.Create;
VTudoJunto := TStringList.Create;
try
for I := 0 to Pred(VLista.Count) do
begin
VArquivo.LoadFromFile(VLista[I]);
VTudoJunto.AddStrings(VArquivoAtual);
end;
// Grave
VTudoJunto.SaveToFile('tudojunto.txt');
finally
VArquivo.Free;
VTudoJunto.Free;
end;
finally
VLista.Free;
end;
end;
--
João Morais
