AssignCr.PAS

Language:
Русский
English

  {AssignCr.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the AssignCrt procedure.}

  uses WinCrt;

 var
   MyScreenFile: Text;

 begin
   AssignCRT(MyScreenFile);
   Rewrite(MyScreenFile);
   Writeln(MyScreenFile,'The file variable MyScreenFile is associated with
    the screen.');
   Close(MyScreenFile);
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //