Функція Eoln в Delphi повертає True, якщо позиція курсору знаходиться в кінці рядка.
System unit
function Eoln (var FileHandle : TextFile) : Boolean;
Функція Eoln повертає істину, якщо курсор поточного файлу, вказаного у FileHandle, знаходиться наприкінці поточного рядка.
Файл повинен бути призначений, використовуючи AssignFile, і відкритий за допомогою Reset.
Функція Eoln використовується процедурою Read, щоб знати, коли було досягнуто кінця поточного рядка.
Більш точно, це необхідно тільки при читанні символьних даних — читання числових даних обробляє кінець рядка як незаповнений простір, і перескакує повз це при пошуку наступного числа.
Примітка.
Попередження після читання останнього рядка файлу, Eof буде вірним, навіть якщо дані зчиталися успішно.
Тому використовуйте Eof перед читанням, щоб побачити, чи потрібно читати.
Функція Eoln: Читання по одному символу з текстового файлу
var
myFile : TextFile;
letter : char;
text : string;
begin
// Спроба відкрити файл Test.txt для запису
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Запис рядків тексту у файл
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 — повертає true, якщо позиція курсору знаходиться в кінці відкритого файлу за допомогою Reset.
Read — дозволяє прочитати дані з двійкового або текстового файлу.
ReadLn — дозволяє прочитати повний рядок даних із текстового файлу.
SeekEof — пропускає символи, доки не зустрінеться кінець файлу.
SeekEoln — пропускає символи, доки не зустрінеться кінець поточного рядка або файлу.
Пригостити автора кавою