AssignCrt

Z Delphi & Pascal (česká wiki)
Verze z 2. 10. 2012, 20:34, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
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.