Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Как соединить несколько файлов в один
   Категория: Текст и строки
  Функции дат в SQL
   Категория: Базы данных
  Тpансляция ошибок в BDE
   Категория: Базы данных
  Удалить лишние символы из строки
   Категория: Текст и строки
  Создание кнопки на панели в IE
   Категория: Интернет и Сети
  Вывод текста на канву Canvas
   Категория: Компоненты
  Упаковать BD Accuracer
   Категория: Базы данных
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  Число четное или нечетное
   Категория: Математика

Delphi - Справочник: Erase

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Erase
procedure Erase ( var FileHandle : File; ) ;
Процедура (Unit System)
Стирает файл
Описание:
Процедура Erase пытается стиреть файл, данный в FileHandle.

Имя файла, должно быть, было назначено подпрограммой AssignFile в дескрипторе файла FileHandle.

Если файл не существует, то поднимается исключение EInOutError.
Пример кода: Создание простого файла, затем попытка удалить его дважды

var myFile : TextFile; begin // Позволяет нам открыть текстовый файл AssignFile(myFile, 'Test.txt'); ReWrite(myFile); // И записать одну линию в него WriteLn(myFile, 'Hello World'); // Затем закрываем его CloseFile(myFile); // И наконец стираем его Erase(myFile); // Если мы пробуем стереть его снова, мы поднимем исключение try Erase(myFile); except on E : Exception do ShowMessage('Нельзя удалить : '+E.Message); end; end;

Результат:
Нельзя удалить : File not found

  << Вернуться