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
SeekEoln
Функция
Пропускает символы, пока не встретится конец текущей строки или файла System unit
   function SeekEoln ( {var FileHandle : File} ) : Boolean;
Описание
Процедура 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
 



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