![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Работа с директориями в DelphiDelphi , Файловая система , ДиректорииРабота с директориями в Delphi
В этой статье я постараюсь познакомить Вас с некоторыми стандартными функциями для работы с директориями. И еще приведу несколько пользовательских функций и примеры их использования. Также рассмотрен вопрос вызова диалога выбора директории. Для начала начнем с простой функции для создания новой папки. Общий вид функции такой:
То есть если папка успешно создана функция возвращает true. Сразу же простой пример ее использования:
При нажатии на кнопку программа пытается создать папку с именем TestDir на диске C: и если попытка увенчалась успехом, то выводится соответствующее сообщение. Следует отметить, что если вы не указываете имя диска, на котором хотите создавать папку, то функция будет создавать папку в той же директории, где находится сама программа. Объявления:
и
приведут к одному и тому же результату. Теперь рассмотрим функцию для удаления папок. Ее объявление выглядит так:
Сразу же хочу предупредить, что данная функция способна удалять только пустые папки, и если там что-нибудь будет, то произойдет ошибка! Но выход есть!!! Здесь нам на помощь придет пользовательская функция с простым названием MyRemoveDir. Вот описание функции:
Копируете это все в Вашу программу, а затем эту функцию можно вызвать например так:
Теперь маленько отстранимся от непосредственной работы с папками и рассмотрим волнующий многих вопрос. Как вызвать диалог выбора папки (как при установке программ)?? ПРОСТО!!! Подключаем в uses модуль Filectrl.pas (то есть uses FileCtrl;). Теперь ставим на форму еще кнопочку (чтобы не путаться :) и пишем такой код:
При выборе директории в заголовке формы отобразиться ее название! Теперь рассмотрим следующую процедуру. К примеру Вам надо создать папку Dir1 по адресу: C:\MyDir\Test\Dir1, но при этом папок MyDir и Test на Вашем компьютере не существует. Функция CreateDir здесь не сработает, поэтому воспользуемся процедурой ForceDirectories. Ее общий вид таков:
Пример ее использования (как всегда я поставил на форму новую кнопку, а там написал)
Ну и напоследок приведу функцию для проверки: существует ли директория или нет. Ее общий вид такой:
Если директория указанная в параметре Name существует - то функция возвратит true. Надеюсь, что помог Вам описанием данных функций и процедур. Сразу хочется дать совет: почаще заглядывайте в HELP, там много интересной и полезной информации! В статье рассматриваются стандартные функции для работы с директориями в Delphi, а также пользовательские функции для создания, удаления папок, вызова диалога выбора директории и проверки существования директории. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
|||||||||||||||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |