III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

2. Функции и процедуры для работы с текстовыми файлами

Функция SeekEof [ ( var Vf: Text ) ]: Boolean;

Модуль: System

Описание
Функция определяет, достигнут ли конец файла.
Если указатель стоит в конце файла, то функция возвращает True, а иначе - False.
Данная функция может применяться только к открытым текстовым файлам.

Пример
var
   Vf1, Vf2: TextFile;
   i, j: Integer;
begin

AssignFile( Vf1, 'work1txt.html' );
Rewrite( Vf1 );     // создает и открывает файл 'work1txt.html'
AssignFile( Vf2, 'work2txt.html' );
Rewrite( Vf2);     // создает и открывает файл 'work2txt.html'
Writeln( Vf1, '1 2 3' );     // записывает строку в файл'work1txt.html'
Writeln( Vf1, '10 20 30' );   // записывает 2-ю строку в файл
Writeln( Vf1, '100 200 300' );   // записывает 3-ю строку в файл
Reset( Vf1);    { устанавливает указатель файла 'work1txt.html' в начало файла}
while not SeekEof(Vf1) do
   begin    //цикл, пока не достигнут конец файла

    if SeekEoln( Vf1) then Readln;    { если достигнут конец строки в файле, то переход на следующую строку}
   Read( Vf1, j );    // читает число из файла 'work1txt.html'
   Writeln( Vf2, j );    // записывает число в файл 'work2txt.html'
   end;

CloseFile( Vf1 );
CloseFile( Vf2 );

end;

[Вернуться к содержанию]