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;
|
Предупреждение после чтения последней строки файла, Eof будет true, даже при том, что данные считались успешно. Так, что используйте Eof перед чтением, чтобы видеть нужно ли чтение.
|