Правила форума
Erase (процедура)Язык:
Русский
English
Erase (процедура)
Стирает внешний файл с диска.
Объявление
Procedure Erase(Var F);
Режим
Windows, Real, Protected
Замечания
Параметр F - файловая переменная любого файлового типа. Внешний файл, связанный с переменной F удаляется.
В режиме {$I-} функция IOResult вернет нуль, если операция была успешна, иначе она вернет отличный от нуля код ошибки.
Ограничения
Никогда не используйте Erase на открытом файле!
См. также
Пример
Язык:
Русский
English
{ Пример программы для процедуры Erase }
uses Dos, Crt;
var
F : File;
Ch : Char;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
FileMode := 0; { Режим только-чтение }
{$I-} { Отключаем контроль ошибок ввода/вывода }
Reset(F);
{$I+} { Включаем контроль ошибок ввода/вывода }
if IOResult <> 0 then
WriteLn('Не могу найти :', ParamStr(1))
else
begin
Close(F);
Write('Удалить ', ParamStr(1), ' (y/n) ?');
ReadLn(Ch);
if UpCase(Ch) = 'Y' then
Erase(F);
end;
end.
var
F : File;
Ch : Char;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
FileMode := 0; { Режим только-чтение }
{$I-} { Отключаем контроль ошибок ввода/вывода }
Reset(F);
{$I+} { Включаем контроль ошибок ввода/вывода }
if IOResult <> 0 then
WriteLn('Не могу найти :', ParamStr(1))
else
begin
Close(F);
Write('Удалить ', ParamStr(1), ' (y/n) ?');
ReadLn(Ch);
if UpCase(Ch) = 'Y' then
Erase(F);
end;
end.
::
::
::
