Turbo Pascal Documentation

Функция AssignCrt

Модуль Сrt

     Функция: Связывает текстовый файл  с  устройством  СRТ.
(терминалом).
     Описание: AssignCrt(var f: Text)
     Примечания: Процедура АssignCrt работает  точно  также,
как  стандартная  процедура Аssing, за исключением того, что
имени файла не указывается. Вместо этого текстовый файл свя-
зывается с устройством CRТ (терминалом).
     Это позволяет позволяет ускорить вывод  (или  ввод)  по
сравнению  с той скоростью, которая была бы возможна при ис-
пользовании стандартного вывода (или ввода).
     Пример:

uses Crt;
var
    f : text;
begin
Write('Вывести на экран или на устройство печати? [S, P]');
  if UpCase(ReadKey) = 'P' then
     Assign(f,'PRN')   { вывод на устройство печати }
  else
     AssignCrt(f);     { вывод на экран; используются под-
                         программы работы с экраном, осу-
                         ществляющие быстрый вывод информа-
                         ции }
     Rewrite(f);
     Writeln(f,'Быстрый вывод через программы CRT...');
     Close(f)
  end.