Delphi-Help

Eof

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

Eof

Описание

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 перед чтением, чтобы видеть нужно ли чтение.

Авторизация



Счетчики