Правила форума
AssignCr.PASЯзык:
Русский
English
{ Пример программы для процедуры AssignCrt }
uses Crt;
var
MyScreenFile : Text;
begin
AssignCrt(MyScreenFile);
ReWrite(MyScreenFile);
WriteLn(MyScreenFile,
'Файловая переменная MyScreenFile связана с экраном.');
Close(MyScreenFile);
end.
var
MyScreenFile : Text;
begin
AssignCrt(MyScreenFile);
ReWrite(MyScreenFile);
WriteLn(MyScreenFile,
'Файловая переменная MyScreenFile связана с экраном.');
Close(MyScreenFile);
end.
::
::
::
