Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Шифрование текста по паролю
   Категория: Текст и строки
  Тpансляция ошибок в BDE
   Категория: Базы данных
  Как в Memo прокрутить текст
   Категория: Компоненты
  Переключение раскладки клавиатуры
   Категория: Приложение
  Получить типы полей таблицы
   Категория: Базы данных
  Функции дат в SQL
   Категория: Базы данных

Delphi - Справочник: SeekEoln

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

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

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

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

Эта функция обычно используется при чтении неизвестного количества символов в строках файла.
Пример кода: Чтение всех полей записи в текстовом файле

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
Примечание:
SeekEoln очень похож к SeekEof - единственное различие - то, что SeekEof возвращает истину, только когда достигнут Eof; SeekEoln также возвращает истину, когда конец строки достигнут после пропуска незаполненных пространств.

  << Вернуться