Delphi. Функция 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;
