Справочник по Delphi

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 Лабораторные работы по программированию Справочник

Нет комментариев.

Оставить комментарий: