Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 89 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

88
Eof(F) – функция проверки маркера конца файла. Функция воз-
вращает
True, если указатель текущей позиции файла находится сра-
зу за последней его компонентой, и
False – в противном случае.
FilePos(F) – функция возвращает номер текущего компонента
файла.
FileSize(F) – функция возвращает длину файла – количество ком-
понент в файле.
IOResult(F) – функция возвращает код ошибки последней опера-
ции ввода–вывода. Если
IOResult(F) = 0, операция ввода–вывода ус-
пешно завершилась –
ошибки нет. Для использования данной функ-
ции в программе необходимо отключить системную обработку оши-
бок ввода–вывода
{$I-} перед выполнением операции с файлом, а по-
том вернуть обработку ошибок системе –
{$I+}.
Пример:
var
F: file of byte;
begin
Assign(F, 'MyFile');
{$I-}
Reset(F);
{$I+}
If IOResult = 0 then
Writeln('Размер файла в байтах: ', FileSize(F))
else
Writeln('Файл не найден');
end.
5.3. Текстовые файлы
Текстовый файл – это файл, компонентами которого являются
символы. Текстовые файлы – это одна из форм последовательных
файлов. Поэтому с ними можно производить те же действия, что и с
последовательными файлами. 
   Eof(F) – функция проверки маркера конца файла. Функция воз-
вращает True, если указатель текущей позиции файла находится сра-
зу за последней его компонентой, и False – в противном случае.
   FilePos(F) – функция возвращает номер текущего компонента
файла.
   FileSize(F) – функция возвращает длину файла – количество ком-
понент в файле.
   IOResult(F) – функция возвращает код ошибки последней опера-
ции ввода–вывода. Если IOResult(F) = 0, операция ввода–вывода ус-
пешно завершилась – ошибки нет. Для использования данной функ-
ции в программе необходимо отключить системную обработку оши-
бок ввода–вывода {$I-} перед выполнением операции с файлом, а по-
том вернуть обработку ошибок системе – {$I+}.
   Пример:
  var
  F: file of byte;
  begin
   Assign(F, 'MyFile');
   {$I-}
   Reset(F);
   {$I+}
   If IOResult = 0 then
      Writeln('Размер файла в байтах: ', FileSize(F))
   else
    Writeln('Файл не найден');
  end.


  5.3. Текстовые файлы
   Текстовый файл – это файл, компонентами которого являются
символы. Текстовые файлы – это одна из форм последовательных
файлов. Поэтому с ними можно производить те же действия, что и с
последовательными файлами.



                                 88

Страницы