Erase
Verze z 5. 10. 2012, 20:51, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
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.