AssignFile, процедура

Синтаксис


procedure AssignFile(var F: File; const FileName: string);
procedure AssignFile(var F: TextFile; const FileName: string);

Описание

Процедура AssignFile вызывается для присваивания имени типизированному, нетипизированному или текстовому файлу перед его открытием. AssignFile не является настоящей процедурой.

Ошибки

Советы и приемы

  • Последующий вызов Append, Reset или Rewrite открывает файл. Если предварительно не была вызвана процедура AssignFile, вызов Append, Reset или Rewrite приведет ошибке ввода/вывода 102.
  • Delphi интерпретирует пустую строку как ссылку на консольное устройство. В консольном приложении файлы Input и Output автоматически назначаются на консоль. Попытка использования консольного файла в графическом приложении приведет к ошибке ввода/вывода 105.

Пример


var
  LogFile: String = 'c:\log.txt';
// Добавление сообщения в файл протокола. В описании ключевого слова // Array приведена другая версия процедуры Log. procedure Log(const Msg: string); overload; var
F: TextFile; begin
AsslgnFile(F, LogFile);
// Попытка дописыеания данных к файлу. Может увенчаться успехом только
// если файл существует. {$IoChecks Off} Append(F);
{$IoChecks On}
if IOResult<> 0 then // Файл не существует, создаем его. Rewrite(F);
WriteLn(F, Msg);
CloseFile(F); end;

Смотрите также

Функции Eof, IOResult, процедуры Append, CloseFile, Reset, Rewrite.
    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник

Реклама