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

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

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

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

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

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

FilePos  

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

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

 
Пример кода : Чтение всех записей в текстовом файле
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   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия