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

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

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

  Реклама:

 

Eoln
Функция
Возвращает true, если позиция курсора находится в конце строки System unit
  function Eoln ( var FileHandle : TextFile ) : Boolean;

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

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

Функция Eoln используется процедурой Read, чтобы знать, когда был достигнут конец текущей строки.

Более определенно, это необходимо только при чтении символьных данных - чтение числовых данных обрабатывает конец строки как незаполненное пространство, и перескакивает мимо этого при поиске следующего числа.
Примечания
Предупреждение после чтения последней строки файла, Eof будет истинен, даже при том, что данные считались успешно.

Так, что используйте Eof перед чтением, чтобы увидеть требуется ли чтение.
Похожие команды
Eof  Возвращает true, если позиция курсора находится в конце файла открытого с помощью Reset

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

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

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

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

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

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

  // Запиcь строк текста в файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'To you');

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

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

  // Отображение содержимого файла
  while not Eof(myFile) do
  begin
    // По одной строке
    ShowMessage('Начало новой строки :');
    while not Eoln(myFile) do
    begin
      Read(myFile, letter);   // Чтение и отображение по одному символу
      ShowMessage(letter);
    end;
    ReadLn(myFile, text);
  end;

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

Начало новой строки :
H
e
l
l
o
Начало новой строки :
T
o

y
o
u
 


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


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