Процедура Reset
Открывает существующий файл.
Объявление:
Procedure Reset(Var F [ : File; Recsize : Word ] )
Режим:
Замечания:
Параметр F - переменная любого файлового типа, связанная с внешним файлом, с
использованием процедуры Assign. Параметр RecSize - необязательный параметр,
который может быть определен только, если F - нетипизированный файл. В этом
случае, RecSize определяет размер блока, который нужно использовать при
передаче данных. Если RecSize опущен, принят заданный по умолчанию размер
блока в 128 байт.
Reset открывает существующий внешний файл с именем, назначенным в переменной
F. Происходит ошибка, если внешний файл с данным именем не существует. Если
файл F уже открыт, то он сначала закрывается, а затем вновь открывается.
Текущая позиция указателя устанавливается на начало файла.
Если переменной F назначено пустое имя, например Assign(F, ''), то после
обращения к Reset, переменная F будет относиться к стандартному входному
файлу (стандартный номер дескриптора = 0).
Если F - текстовый файл, то он открывается только на чтение. После обращения
к Reset, Eof(F) = True, если файл пуст, иначе Eof (F) = False.
В режиме {$I-} функция IOResult вернет 0, если операция была успешна, иначе,
она возвращает отличный от нуля код ошибки.
Пример:
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.
См. также: