[Kristofer]

хельп!
имеем на выходе txt файл(1), продолжаем работать, получаем ещё один(2)
задача:как слить в этом txt (1), содержимое 1го txt и 2го txt файлоффф? ну и так далее при обработке 3, 4, 5...

[Simbar]

Быстрее Blockread|BlockWrite
А так Открываешь в Append режиме и вперед

[Decoding]

Напиши процедуру, объединяющую 2 файла, например:

Код:

procedure AddToFile( f1, f2: string );
var
  _f1, _f2: Text;
  s: string;
begin
   AssignFile( _f1, f1 );
   Append( _f1 );
   AssignFile( _f2, f2 );
   Reset( _f2 );
   while not Eof( _f2 ) do
   begin
      Readln( _f2, s );
      Writeln( _f1, s );
   end;
   CloseFile( _f2 );
   CloseFile( _f1 );
end;

Первый параметр (f1) - файл, в который нужно записать, второй (f2) - файл, из которого берем информацию.

А потом делай примерно так (возможны вариации на тему...)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 2 to сколько_нужно do
      AddToFile( '1.txt', IntToStr( i ) + '.txt' );
end;

[The Shadow]

А в разделе var не так разве должно быть:
var
_f1, _f2: TextFile;
?

[4kusNick]

Да, именно так и должно быть, видимо, Decoding из головы писал =)