Delphi-Help

Описание

function Eof ( var FileHandle : TextFile ) ;

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

Пример кода

var
myFile : TextFile;
text   : string;
begin
// Попытка открыть файл Test.txt для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Запиcь нескольких известных слов в этот файл
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

Примечание

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