Согласие на обработку персональных данных.

26.05.2018
Новые видео и статья Как изменить дизайн сайта на Wordpress.

21.05.2018
Новый подраздел Wordpress.

20.05.2018
Новые видео и статья Процедура Rewrite.

15.05.2018
Новая задача Как заменить цифру в числе.

13.05.2018
Новые видео и статья Процедура Reset.



Раздел: Стандартные функции Паскаля

Процедура 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 Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика