Erase.PAS

Язык:
Русский
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.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //