Процедура Reset

Основы программирования
Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее...

Процедура Reset открывает файл для чтения. Синтаксис:

 
procedure Reset(var F : file; L : LongInt);

procedure Reset(var F : file);

procedure Reset(var F : TypedFile);

procedure Reset(var F : Text);

Процедура Reset открывает файл F для чтения. Файл F может быть файлом любого типа.

Если F - это текстовый файл или является устройством стандартного ввода-вывода, то он открывается только для чтения. В противном случае он открывается в режиме, указанном в поле mode записи filerec (это тема отдельной статьи).

Если F является нетипизированным файлом, то размер записи может быть указан в необязательном параметре L (по умолчанию используется значение 128).

Общий доступ к файлам не принимается во внимание при вызове процедуры Reset.

В зависимости от состояния переключателя {$I} при наличии ошибки ввода-вывода может возникнуть ошибка времени выполнения. В состоянии {$I-} используйте функцию IOResult для проверки ошибок (подробнее о директивах компилятора см. здесь).

Пример использования процедуры Reset приведён ниже:

 
program resetproc;

//****************************************************************
// Проверяет существование файла
// ВХОД: путь к файлу
// ВЫХОД: TRUE - файл существует, FALSE - файл не существует
//****************************************************************
function FileExists(Name : String) : boolean;
var F : File;
begin
{$I-}
  Assign(F, Name);
  Reset(F);
  Close(F);
{$I+}
  Result := (IoResult = 0);
end;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  if FileExists('resetproc.lpr') then
    Writeln ('File found')
  else
    Writeln ('File NOT found');

  WriteLn('Then end. Press ENTER...');
  ReadLn;
end.

В этом примере мы используем процедуру Reset для проверки существования файла на диске. Если при вызове процедуры Reset произойдёт ошибка, то это означает, что указанного файла не существует (или он не найден по каким-то причинам).

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты