Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
RmDir
Процедура
Удаление каталога System unit
  procedure RmDir ( const DirectoryName : string ) ;
Описание
Процедура RmDir удаляет каталог из текущего каталога.

Если каталог не существует, то выбрасывается исключение EInOutError.

Вы можете избежать такого исключения, предотвращая ошибки IO, используя директива компилятора {$IOChecks Off}. Вы должны тогда проверять значение IOResult, чтобы видеть результат вашей операции IO (помните, что использование IOResult сбрасывает значение).
Похожие команды
$IOChecks  

ChDir  Выбор диска и директории ( папки ), в которой будет производиться работа

CreateDir  Создаёт директорию

GetCurrentDir  Возвращает текущий каталог (диск плюс каталог)

IOResult  Содержит возвращаемый код последней операции ввода/вывода

MkDir  Создаёт каталог

RemoveDir  Позволяет удалить директорию

SelectDirectory  Выводит диалоговое окно, с помощью которого пользователь может выбрать директорию

SetCurrentDir  Изменяет текущую директорию

ForceDirectories  Создаёт новый путь каталогов

 
Пример кода : Создание каталога, и затем его удаление
var
  error : Integer;

begin
  // Попытка создать новый подкаталог в текущем каталоге
  // Выключение проверок ошибок I/O
  {$IOChecks off}
  MkDir('TempDirectory');

  // Каталог создался успешно?
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог создан')
  else ShowMessageFmt('Создание каталога вызвалоошибку %d',[error]);

  // Удаление каталога для очистки
  RmDir('TempDirectory');

  // Каталог был удален успешно?
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог удалён')
  else ShowMessageFmt('Удаление каталога произошло с ошибкой %d',[error]);
end;
Каталог создан
Каталог удалён
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия