Delphi-Help

SeekEoln

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

SeekEoln

Описание

function SeekEoln ( {var FileHandle : File} ) : Boolean;

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

 

Авторизация



Счетчики