Правила форума
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.
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.
::
::
::
