1 578
editací
Změny
Vytvorená stránka „Smaže vnější soubor. ;Deklarace procedure Erase(var F); ;Režim :Windows, Reálný, Chráněný ;Poznámky :F je souborová proměnná kteréhokoli souborového...“
Smaže vnější soubor.
;Deklarace
procedure Erase(var F);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je souborová proměnná kteréhokoli souborového typu. Vnější soubor, sdružený s F, se smaže.
:V režimu {[[$I]]-} vrátí funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Omezení
:Proceduru [[Erase]] nikdy nepoužívejte na otevřený soubor.
;Viz také
:[[Rename]]
Vzorový příklad
{Erase.PAS}
{Vzorový příklad pro proceduru Erase. }
{ Pro Windows: }
{ uses WinCrt; }
var
F: file;
Ch: Char;
begin
{ Vezmi jméno souboru z povelového řádku }
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then
Writeln('Nelze najít ', ParamStr(1))
else
begin
Close(F);
Write('Vymazat ', ParamStr(1), '? ');
Readln(Ch);
if UpCase(CH) = 'Y' then
Erase(F);
end;
end.
[[Category:System]]
[[Category:Procedúry System]]
;Deklarace
procedure Erase(var F);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je souborová proměnná kteréhokoli souborového typu. Vnější soubor, sdružený s F, se smaže.
:V režimu {[[$I]]-} vrátí funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Omezení
:Proceduru [[Erase]] nikdy nepoužívejte na otevřený soubor.
;Viz také
:[[Rename]]
Vzorový příklad
{Erase.PAS}
{Vzorový příklad pro proceduru Erase. }
{ Pro Windows: }
{ uses WinCrt; }
var
F: file;
Ch: Char;
begin
{ Vezmi jméno souboru z povelového řádku }
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then
Writeln('Nelze najít ', ParamStr(1))
else
begin
Close(F);
Write('Vymazat ', ParamStr(1), '? ');
Readln(Ch);
if UpCase(CH) = 'Y' then
Erase(F);
end;
end.
[[Category:System]]
[[Category:Procedúry System]]