Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


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



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия