1 578
editací
Změny
bez shrnutí editace
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.
[[Category:CRT]]
[[Category:Procedúra 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.
[[Category:CRT]]
[[Category:Procedúra CRT]]