Це логічна функція, тобто повертає значення TRUE або FALSE. Повертає значення True, якщо на вхідному текстовому файлі покажчик досяг маркера кінця рядка. Інакше приймає значення False.
В
Якщо параметр [файлова змінна] опущений, функція перевіряє стандартний файл Input.
В
Наведемо приклад програми використовує функцію EOLn:
Припустимо нам дано вхідний текстовий файл In складається тільки з символьного типу даних Char. Нам треба записати у вихідний текстовий файл Out тільки перший рядок з вхідного файлу. p> Program End_Of_Line;
Var
In, Out: Text;
C: Char;
Begin
Assign (In, 'indata.txt');
Assign (Out, 'outdata.txt');
Reset (In);
Rewrite (Out);
Repeat
Read (In, C);
Write (Out, C);
Until EOLn; {Поки курсор не досягне першого маркера кінця рядка буде проводитися зчитування і запис}
End.
Функція EOF ([файлова змінна]);
Перевіряє чи є поточна позиція файлу кінцем файлу. EOF повертає TRUE, якщо наступним вважають символом з файлу або якщо файл порожній буде ознака кінця файлу. В іншому випадку функція EOF повертає FALSE. p> Якщо параметр [файлова змінна] опущений то функція перевіряє стандартний файл Input. <В
За допомогою цієї функції можна з легкістю вважати всю інформацію з файлу.
Наведемо приклад програми використовує функцію EOF:
Припустимо нам дано вхідний текстовий файл In складається тільки з символьного типу даних Char. Нам треба записати у вихідний текстовий файл Out всі символи з вхідного файлу. p> Program End_Of_Line;
Var
In, Out: Text;
C: Char;
Begin
Assign (In, 'indata.txt');
Assign (Out, 'outdata.txt');
Reset (In);
Rewrite (Out);
Repeat
Read (In, C);
Write (Out, C);
Until EOF; {Поки курсор не досягне кінця файлу буде проводитися зчитування і запис}
End.
Функція SeekEOLn ([файлова мінлива]);
В
Пропускає всі прогалини і знаки табуляції до маркера кінця рядка ЕОLn або до першого значущого символу і повертає TRUE якщо маркер виявлений. Тобто функція перевіряє чи є значущі символи до кінця рядка і приймає значення FALSE якщо вони є.
В
Якщо параметр [файлова змінна] опущений, функція перевіряє стандартний файл INPUT.
В
Наведемо приклад програми використовує функцію EOLn:
Припустимо нам дана рядок у вхідному текстовому файлі In:
'1 2 3 4 5 '
(Без лапок, після 5 стоять непотрібні пробіли)
Program Seek_End_Of_line;
Var
s: array [1 .. 5] of byte;
i: integer;
f: text;
Begin
assign (f, 'temp.txt');
reset (f);
i: = 0;
repeat
inc (i);
...
