Otevřít hlavní menu

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.