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