Mail

В этот день много лет назад...
25 апреля. В 1983 году (41 год назад) - Лидер СССР Ю. Андропов приглашает американскую девочку Саманту Смит.

Turbo Pascal Documentation

Процедура Reset

     Функция: Открывает существующий файл.
     Описание: Reset(f [ : file; разм_записи : word ] )
     Примечания: Параметр f  является  файловой  переменной,
соответствующей  любому  типу файла. Он должен быть связан с
внешним  файлом  с  помощью   процедуры   Assign.   Параметр
"разм_записи"  представляет  собой  необязательное выражение
длиной в слово и может указываться только в том случае, если
f является нетипизованным файлом.
     Процедура Reset открывает  существующий  внешний  файл,
имя которого было присвоено f. Если внешний файл с указанным
именем отсутствует, то это является ошибкой. Если файл f уже
открыт,  то  он  сначала  закрывается,  а  затем открывается
вновь. Текущая позиция в  файле  устанавливается  на  начало
файла.   Если   f   было  присвоено  пустое  имя  (например,
Assign(f'')), то после обращения к процедуре Reset  f  будет
ссылкой на стандартный файл ввода (стандартный канал 0).
     Если f - текстовый файл,  то  он  становится  доступным
только  по  чтению. После обращения к процедуре Reset Еоf(f)
принимает значение Тruе, если файл пуст, и значение False  в
противном случае.
     Если f  является  нетипизованным  файлом,  то  параметр
"разм-записи"  определяет  размер записи, который должен ис-
пользоваться при передаче данных. Если этот параметр опущен,
то он подразумевается равным по умолчанию 128 байтам.
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Отличия: В версии 3.0 пустое имя файла было  недопусти-
мо.
     Прочее: См. также процедуры Rewrite, Append, Assign.
     Пример:

function FileExists(FileName: string) : boolean;
{ булевская функция, возвращающая значение Тruе, если файл
   существует и значение False в противном случае }
var
    f : file;
begin
  {I-}
  Assign(f, FileName);
  Reset(f);
  Close(f);
  {I+}
  FileExists := (IOResult = 0) and (FileName <> '');
end; { FileExists };
  begin
   if FileExists(ParamStr(1)) then { получить из командной
                                     строки имя файла }
   Writeln('Файл существует');
   else
   Writeln('Файл не найден');
end.

Купить плиту индукционную в Новосибирске по выгодной цене.