Функция SeekEof [ ( var Vf: Text ) ]: Boolean; -------------------------------------------------------------------------------- Модуль: System Описание Функция определяет, достигнут ли конец файла. Если указатель стоит в конце файла, то функция возвращает True, а иначе - False. Данная функция может применяться только к открытым текстовым файлам. Пример var Vf1, Vf2: TextFile; i, j: Integer; begin AssignFile( Vf1, 'work1.txt' ); Rewrite( Vf1 ); // создает и открывает файл 'work1.txt' AssignFile( Vf2, 'work2.txt' ); Rewrite( Vf2); // создает и открывает файл 'work2.txt' Writeln( Vf1, '1 2 3' ); // записывает строку в файл'work1.txt' Writeln( Vf1, '10 20 30' ); // записывает 2-ю строку в файл Writeln( Vf1, '100 200 300' ); // записывает 3-ю строку в файл Reset( Vf1); { устанавливает указатель файла 'work1.txt' в начало файла} while not SeekEof(Vf1) do begin //цикл, пока не достигнут конец файла if SeekEoln( Vf1) then Readln; { если достигнут конец строки в файле, то переход на следующую строку} Read( Vf1, j ); // читает число из файла 'work1.txt' Writeln( Vf2, j ); // записывает число в файл 'work2.txt' end; CloseFile( Vf1 ); CloseFile( Vf2 ); end;
|