AssignCrt

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Sdruží textový soubor s CRT.


Deklarace
procedure procedure AssignCrt(var f: Text);


Režim
Windows, Reálný, Chráněný


Poznámky
AssignCrt pracuje přesně jako standardní procedura Assign s tou vyjímkou, že se neurčuje jméno souboru. Namísto toho se textový soubor sdruží s oknem CRT.
Následné operace Write a Writeln s tímto souborem budou psát do okna CRT a operace Read a Readln budou číst z okna CRT.


Vzorový příklad

{AssignCr.PAS}
{Vzorový příklad pro proceduru AssignCrt.}

uses WinCrt;
var
  MyScreenFile: Text;
begin
  AssignCRT(MyScreenFile);
  Rewrite(MyScreenFile);
  Writeln(MyScreenFile,'Souborová proměnná MyScreenFile '
  'je spojena s obrazovkou.');
  Close(MyScreenFile);
end.