Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы

Категория: Файловая система
Delphi - Справочник: Eof
Eof
|
function Eof ( var FileHandle : TextFile ) ; |
Функция (Unit System)
|
Возвращает true, если позиция курсора находится в конце файла открытого с помо
|
Описание:
|
Функция 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 перед чтением, чтобы видеть нужно ли чтение. |