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

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

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

  Реклама:

 

SeekEoln
Функция
Пропускает символы, пока не встретится конец текущей строки или файла System unit
   function SeekEoln ( {var FileHandle : File} ) : Boolean;

Google  
 
Описание
Процедура SeekEoln пропускает символы пробела, табуляции и пустой строки в открытом текстовом файле, заданном переменной FileHandle.

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

Если при этом был достигнут конец строки или конца файла, возвращаемое значение будет True.

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

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

File  Определяет типизированный или нетипизированный файл

FilePos  

Seek  Перемещает указатель в двоичном файле в новую позицию

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

 
Пример кода : Чтение всех полей записи в текстовом файле
var
  myFile : TextFile;
  number : Integer;

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

  // Запись чисел в строку
  WriteLn(myFile, '1 2 3 4   ');   // Незаполненное пространство в конце

  // Запись чисел как разделенные параметры
  WriteLn(myFile, 5, ' ', 6, ' ', 7, ' ');  // Текст '5 6 7 '

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

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

  // Показ содержимого файла
  while not SeekEof(myFile) do
  begin
    // Чтение чисел
    ShowMessage('Начал новой строки');
    while not SeekEoln(myFile) do
    begin
      Read(myFile, number);
      ShowMessage(IntToStr(number));
    end;

    // Теперь перемещаемся на следующую строку
    ReadLn(myFile);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;
Начало новой строки
1
2
3
4
Начало новой строки
5
6
7
 


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


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