| Описание |
Функция Eoln возвращает истину, если курсор текущего файла, указанного в FileHandle, находится в конце текущей строки.
Файл, должен был, быть назначен, используя AssignFile, и открыт с помощью Reset.
Функция Eoln используется процедурой Read, чтобы знать, когда был достигнут конец текущей строки.
Более определенно, это необходимо только при чтении символьных данных - чтение числовых данных обрабатывает конец строки как незаполненное пространство, и перескакивает мимо этого при поиске следующего числа.
|
|
| Примечания |
Предупреждение после чтения последней строки файла, Eof будет истинен, даже при том, что данные считались успешно.
Так, что используйте Eof перед чтением, чтобы увидеть требуется ли чтение.
|
|
| Похожие команды |
Eof Возвращает true, если позиция курсора находится в конце файла открытого с помощью Reset
Read Позволяет прочитать данные из двоичного или текстового файла
ReadLn Позволяет прочитать полную строку данных из текстового файла
SeekEof Пропускает символы, пока не встретится конец файла
SeekEoln Пропускает символы, пока не встретится конец текущей строки или файла
| |
|
| Пример кода : Чтение по одному символу из строки текстового файла |
var
myFile : TextFile;
letter : char;
text : string;
begin
// Попытка открыть файл Test.txt
для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Запиcь строк текста в файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'To you');
// Закрытие файла
CloseFile(myFile);
// Повторное открытие файла для
чтения
Reset(myFile);
// Отображение содержимого файла
while not Eof(myFile) do
begin
// По одной
строке
ShowMessage('Начало новой строки :');
while not Eoln(myFile) do
begin
Read(myFile, letter); //
Чтение и отображение по одному символу
ShowMessage(letter);
end;
ReadLn(myFile, text);
end;
// Закрытие файла в последний раз
CloseFile(myFile);
end;
|
Начало новой строки :
H
e
l
l
o
Начало новой строки :
T
o
y
o
u
|
|
