Процедура Assign Pascal-Паскаль

Описание

Assign - Назначает файловой переменной имя внешнего файла.

Объявление: Procedure Assign(Var F; Name : String);
Режим: Windows, Real, Protected

Замечания:

Параметр F - файловая переменная любого файлового типа, а Name - выражение со строковым типом или выражение типа PChar, если допускается расширенный синтаксис. Все дальнейшие операции с переменной F на самом деле происходят с внешним файлом с именем Name.

После обращения к Assign, связь между переменной F и внешним файлом продолжает существовать до тех пор, пока для переменной F не будет сделано еще одно переназначение.

Имя файла состоит из пути - нулевого или большего количества имен каталогов, разделенных левыми наклонными чертами, сопровождаемого собственно именем файла:

Пример указания пути для процедуры Assign
Drive:\DirName\...\DirName\FileName.Ext

Если путь начинается с левой наклонной черты, то он находится в корневом каталоге, иначе, он находится в текущем каталоге.

Drive - идентификатор дисковода (A-Z). Если Drive и двоеточие опущены, то используется заданный по умолчанию дисковод. \DirName\...\DirName - корневой каталог и подкаталоги в пути к файлу. Имя файла состоит из имени, длиной до восьми символов, возможно сопровождаемых точкой и расширения, длиной до трех символов. Максимальная длина всего имени файла вместе с путем - 79 символов.

Если String - пустая строка, то есть когда Length(Name) равно нулю, то возникает специальный случай и переменная F становится связанной со стандартным файлом ввода или вывода. Эти специальные файлы позволяют программе использовать возможность операционной системы DOS - возможность переназначения ввода/вывода.

Если переменной F назначено пустое имя, то после обращения к Reset(F), F относится к стандартному устройству ввода, а после обращения к ReWrite(F), F относится к стандартному устройству вывода.

Ограничения:

Assign не может использоваться для открытых файлов.

Пример программы для процедуры Assign.
{Попробуйте использовать стандартные переназначения DOS на PRN, файл на диске и т.п.}
Var F : Text;
Begin
    Assign(F, ''); {Стандартное устройство вывода}
    ReWrite(F);
    WriteLn(F, 'Стандартное устройство вывода...');
    Close(F);
End.
  • Append
  • Close
  • Reset
  • ReWrite