Erase: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(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...“)
 
 
(Není zobrazena jedna mezilehlá verze od stejného uživatele.)
Řádek 48: Řádek 48:
 
[[Category:System]]
 
[[Category:System]]
 
[[Category:Procedúry System]]
 
[[Category:Procedúry System]]
 +
[[Category:Vstupně/výstupní procedury a funkce]]

Aktuální verze z 5. 10. 2012, 20:51

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.