[Kristofer]

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

[Simbar]

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

[Decoding]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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

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

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

Код:

1 2 3 4 5 6 7

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

[The Shadow]

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

[4kusNick]

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