Функція Eof в Delphi повертає True, якщо позиція курсору знаходиться в кінці відкритого файлу за допомогою Reset.
System unit
function Eof (var FileHandle : TextFile) ;
Функція Eof повертає істину, якщо курсор файлу, вказаного у FileHandle, знаходиться в кінці.
Файл має бути призначений та відкритий за допомогою Reset.
Попередження.
Після прочитання останнього рядка файлу Eof буде True, навіть при тому, що дані зчиталися успішно.
Тому використовуйте Eof перед читанням, щоб бачити чи потрібно читання.
Функція Eof: Читання до кінця текстового файлу
var
myFile : TextFile;
text : string;
begin
// Спроба відкрити файл Test.txt для запису
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Запис кількох відомих слів у цей файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');
// Закриття файла
CloseFile(myFile);
// Повторне відкриття файла лише для читання
Reset(myFile);
// Відображення вмісту файлу
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;
// Закриття файлу востаннє
CloseFile(myFile);
end;Результат
Hello
World
Подібні функції, процедури та команди
BlockRead — читає блок записів даних із нетипізованого двійкового файлу.
Eoln — повертає True, якщо позиція курсору знаходиться наприкінці рядка.
Read — дозволяє прочитати дані з двійкового або текстового файлу.
ReadLn — дозволяє прочитати повний рядок даних із текстового файлу.
SeekEof — пропускає символи, доки не зустрінеться кінець файлу.
SeekEoln — пропускає символи, доки не зустрінеться кінець поточного рядка або файлу.
Пригостити автора кавою