Erase

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.