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

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

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

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

Delphi Sources

Описание
Процедура 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
 


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

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")

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