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

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

Функция Eof( var Vf ): Boolean;

Модуль: System

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

Пример
var

Vf1,Vf2: TextFile;
FileName1, FileName2: string;
C: Char;

begin

FileName1:='readtxt.html';   //подразумевается, что файл существует
FileName2:='writetxt.html';
AssignFile(Vf1, FileName1);
Reset(Vf1);        //открывает файл 'readtxt.html'
AssignFile(Vf2, FileName2);
Rewrite(Vf2);      //создает файл 'writetxt.html'
while not Eof(Vf1) do  //повтор, пока не достигнут конец файла

begin
Read(Vf1, C);      //читает символ из файла 'readtxt.html'
Write(Vf2, C);      //записывает символ в файл 'writetxt.html'
end;

CloseFile(Vf2);
CloseFile(Vf1);

end;

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