Delphi-Help

Eoln

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

Eoln

Описание

function Eoln ( var FileHandle : TextFile ) : Boolean;

Функция Eoln возвращает истину, если курсор текущего файла, указанного в FileHandle, находится в конце текущей строки.
Файл, должен был, быть назначен, используя AssignFile, и открыт с помощью Reset.
Функция Eoln используется процедурой Read, чтобы знать, когда был достигнут конец текущей строки.
Более определенно, это необходимо только при чтении символьных данных - чтение числовых данных обрабатывает конец строки как незаполненное пространство, и перескакивает мимо этого при поиске следующего числа.

Пример кода

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

Примечание

Предупреждение после чтения последней строки файла, Eof будет истинен, даже при том, что данные считались успешно.
Так, что используйте Eof перед чтением, чтобы увидеть требуется ли чтение.

Авторизация



Счетчики