Справочник функций и процедур 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;

Delphi Sources

Описание
Функция 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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте