Пропускает символы, пока не встретится конец текущей строки или файла
System unit
function SeekEoln ( {var FileHandle : File} ) : Boolean;
Описание
Процедура SeekEoln пропускает символы пробела, табуляции и пустой строки в открытом текстовом файле, заданном переменной FileHandle.
Файл должен быть связан с файловой переменной процедурой AssignFile и открыт с помощью Reset.
Если при этом был достигнут конец строки или конца файла, возвращаемое значение будет True.
Эта функция обычно используется при чтении неизвестного количества символов в строках файла.
Примечания
SeekEoln очень похож к SeekEof - единственное различие - то, что SeekEof возвращает истину, только когда достигнут Eof; SeekEoln также возвращает истину, когда конец строки достигнут после пропуска незаполненных пространств.
Похожие команды
Eof Возвращает true, если позиция курсора находится в конце файла открытого с помощью Reset
Eoln Возвращает true, если позиция курсора находится в конце строки
File Определяет типизированный или нетипизированный файл
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