1 578
editací
Změny
Vytvorená stránka „Zavře otevřený soubor. ;Deklarace procedure Close(var F); ;Režim :Windows, Reálný, Chráněný ;Poznámky :F je proměnná kteréhokoli souborového typu, kter...“
Zavře otevřený soubor.
;Deklarace
procedure Close(var F);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je proměnná kteréhokoli souborového typu, která byla předtím otevřena pomocí [[Reset]], [[Rewrite]] nebo [[Append]]. Vnější soubor, sdružený s F, je kompletně aktualizován a poté zavřen, a jeho souborové madlo [[DOS]]u je uvolněno pro nové použití.
:V režimu {[[$I]]-} vrací funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrací nenulový kód chyby.
;Viz také
:[[Append]]
:[[Assign]]
:[[Reset]]
:[[Rewrite]]
Vzorový příklad
{Close.PAS}
{Vzorový příklad pro proceduru Close.}
var F: file;
begin
Assign(F, 'AUTOEXEC.BAT'); { Otevři soubor }
Reset(F, 1);
Writeln('File size = ', FileSize(F));
Close(F); { Zavři soubor }
end.
[[Category:System]]
[[Category:Procedúry System]]
;Deklarace
procedure Close(var F);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je proměnná kteréhokoli souborového typu, která byla předtím otevřena pomocí [[Reset]], [[Rewrite]] nebo [[Append]]. Vnější soubor, sdružený s F, je kompletně aktualizován a poté zavřen, a jeho souborové madlo [[DOS]]u je uvolněno pro nové použití.
:V režimu {[[$I]]-} vrací funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrací nenulový kód chyby.
;Viz také
:[[Append]]
:[[Assign]]
:[[Reset]]
:[[Rewrite]]
Vzorový příklad
{Close.PAS}
{Vzorový příklad pro proceduru Close.}
var F: file;
begin
Assign(F, 'AUTOEXEC.BAT'); { Otevři soubor }
Reset(F, 1);
Writeln('File size = ', FileSize(F));
Close(F); { Zavři soubor }
end.
[[Category:System]]
[[Category:Procedúry System]]