1 578
editací
Změny
Vytvorená stránka „Vytvoří podadresář. ;Deklarace procedure MkDir(S: String); ;Režim :Windows, Reálný, Chráněný ;Poznámky :Vytvoří nový podadresář s cestou, určenou ř...“
Vytvoří podadresář.
;Deklarace
procedure MkDir(S: String);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Vytvoří nový podadresář s cestou, určenou řetězcem S. Poslední položka v cestě nesmí být jménem existujícího souboru.
:V režimu {[[$I]]-} vrátí [[IOResult]] 0, jestliže operace byla úspěšná; jinak vrátí nenulový kód chyby. [[CreateDir]] provádí stejnou funkci jako [[MkDir]], ale jako argument má namísto řetězce pascalského stylu řetězec ukončený nulovým znakem.
;Viz také
:[[ChDir]]
:[[GetDir]]
:[[RmDir]]
Vzorový příklad
{Mkdir.PAS}
{Vzorový příklad pro proceduru MkDir.}
begin
{$I-}
{ Zjištění jména adresáře z příkazové řádky }
MkDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Adresář nelze vytvořit')
else
Writeln('Nový adresář byl vytvořen');
end.
[[Category:System]]
[[Category:Procedúry System]]
;Deklarace
procedure MkDir(S: String);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Vytvoří nový podadresář s cestou, určenou řetězcem S. Poslední položka v cestě nesmí být jménem existujícího souboru.
:V režimu {[[$I]]-} vrátí [[IOResult]] 0, jestliže operace byla úspěšná; jinak vrátí nenulový kód chyby. [[CreateDir]] provádí stejnou funkci jako [[MkDir]], ale jako argument má namísto řetězce pascalského stylu řetězec ukončený nulovým znakem.
;Viz také
:[[ChDir]]
:[[GetDir]]
:[[RmDir]]
Vzorový příklad
{Mkdir.PAS}
{Vzorový příklad pro proceduru MkDir.}
begin
{$I-}
{ Zjištění jména adresáře z příkazové řádky }
MkDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Adresář nelze vytvořit')
else
Writeln('Nový adresář byl vytvořen');
end.
[[Category:System]]
[[Category:Procedúry System]]