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

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

Модуль: System

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

Пример
var
   Vf1,Vf2: TextFile;
   FileName1, FileName2: string;
   C: Char;
begin
   FileName1:='read.txt';   //подразумевается, что файл существует
   FileName2:='write.txt';
   AssignFile(Vf1, FileName1);

   Reset(Vf1);       //открывает файл 'read.txt'
   AssignFile(Vf2, FileName2);
   Rewrite(Vf2);     //создает файл 'write.txt'
   while not Eof(Vf1) do  //повтор, пока не достигнут конец файла
     begin
     Read(Vf1, C);     //читает символ из файла 'read.txt'
     Write(Vf2, C);     //записывает символ в файл 'write.txt'
     end;
   CloseFile(Vf2);
   CloseFile(Vf1);
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.