1 578
editací
Změny
Vytvorená stránka „Vytvoří nový podadresář. ;Deklarace procedure CreateDir(Dir: PChar) ;Režim :Windows ;Poznámky :Vykonává stejnou funkci jako MkDir, ale namísto řetězc...“
Vytvoří nový podadresář.
;Deklarace
procedure CreateDir(Dir: PChar)
;Režim
:Windows
;Poznámky
:Vykonává stejnou funkci jako [[MkDir]], ale namísto řetězce pascalského stylu používá jako parametr nulovým znakem ukončený řetězec.
;Viz také
:[[GetCurDir]]
:[[SetCurDir]]
:[[RemoveDir]]
Vzorový příklad
{CreateDr.PAS}
{Vzorový příklad pro proceduru CreateDir.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
const
Create: PChar = 'C:NEWDIR';
CDrive: Byte = 3;
begin
CreateDir(Create);
Writeln('Nový adresář je ', Create,'.');
end.
[[Category:WinDos]]
;Deklarace
procedure CreateDir(Dir: PChar)
;Režim
:Windows
;Poznámky
:Vykonává stejnou funkci jako [[MkDir]], ale namísto řetězce pascalského stylu používá jako parametr nulovým znakem ukončený řetězec.
;Viz také
:[[GetCurDir]]
:[[SetCurDir]]
:[[RemoveDir]]
Vzorový příklad
{CreateDr.PAS}
{Vzorový příklad pro proceduru CreateDir.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
const
Create: PChar = 'C:NEWDIR';
CDrive: Byte = 3;
begin
CreateDir(Create);
Writeln('Nový adresář je ', Create,'.');
end.
[[Category:WinDos]]