Erase: Porovnání verzí
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.