Справочник функций и процедур Delphi: Eof

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

|  Настройка Wifi AP на примере ubuntu.  |

Eof
Функция
Возвращает true, если позиция курсора находится в конце файла открытого с помощью Reset System unit
  function Eof ( var FileHandle : TextFile ) ;

Google  
 
Описание
Функция Eof возвращает истину, если курсор файла, указанного в FileHandle, находится в конце.

Файл, должен был, быть назначен, и открыт с помощью Reset.
Примечания
Предупреждение после чтения последней строки файла, Eof будет true, даже при том, что данные считались успешно.

Так, что используйте Eof перед чтением, чтобы видеть нужно ли чтение.
Похожие команды
BlockRead  Читает блок записей данных из нетипизированного двоичного файла

Eoln  Возвращает true, если позиция курсора находится в конце строки

Read  Позволяет прочитать данные из двоичного или текстового файла

ReadLn  Позволяет прочитать полную строку данных из текстового файла

SeekEof  Пропускает символы, пока не встретится конец файла

SeekEoln  Пропускает символы, пока не встретится конец текущей строки или файла

 
Пример кода : Чтение до конца текстового файла
var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запиcь нескольких известных слов в этот файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла в режиме только для чтения
  Reset(myFile);

  // Отображение содежимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;

Hello
World
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook