Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура Erase.

  • Объявление:

    Procedure Erase(Var F);

  • Описание:

    Стирает внешний файл с диска.

  • Замечания:

    Параметр F - файловая переменная любого файлового типа. Внешний файл, связанный с переменной F удаляется.

    В режиме {I-} функция IOResult вернет нуль, если операция была успешна, иначе она вернет отличный от нуля код ошибки.

  • Ограничения:

    Никогда не используйте Erase на открытом файле!

  • Пример:

    { Пример программы для процедуры Erase }
    Uses WinDos, WinCrt;
    Var F : File;
    Ch : Char;
    Begin
    { Получаем имя файла из командной строки }
    Assign(F, ParamStr(1));
    {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.



Вернуться к оглавлению справочника