Delphi. Компоненты для работы с файловой системой

Данные компоненты находятся на вкладке Windows 3.1, предназначены для программирования операций, связанных с навигацией по файловой системе.

1. Компонент DriveComboBox используется для выбора дисковода, представляет собой комбинированный список, который содержит все установленные дисковые накопители. Выбранное устройство отображается в поле компонента, а соответствующая выбранному дисководу буква содержится в свойстве Drive. Аналогичное свойство имеется у компонентов DirectoryListBox и FileListBox.
2. Компонент DirectoryListBox служит для просмотра и перемещения по дереву каталогов. Свойство Directory содержит строку указывающую текущий каталог. Можно обеспечить связь компонентов 1 и 2 программно, включив в обработчик события OnChange компонента DriveComboBox следующий оператор:
3. Компонент FileListBox предназначен для просмотра списка файлов заданного каталога. При выборе пользователем файла в свойство FileName заносится полное имя выбранного файла. Управлять отображением файлов в списке можно с помощью свойств FileType и Mask. Свойство FileType указывает атрибуты файлов и принимает следующие значения:
      • ftReadOnly
      • ftHidden
      • ftSistem
      • ftArchive
      • ftNormal
Свойство Mask содержит маску для файлов списка. По умолчанию используется маска: *.* . Файлы в списке могут выводится со значками или без них ShowGlyphs. Чтобы можно было выбирать несколько файлов свойство MultiSelect устанавливается в true.
4. Компонент FilterComboBox осуществляет выбор маски для списка файлов. Фильтр состоит из маски и текстового описания. Доступ к фильтру осуществляется через свойство Filter. При совместном использовании компонентов FilterComboBox и FileListBox для организации связи между ними используется свойство FileList.
Настроим компоненты следующим образом: при навигации по папкам в компоненте FileListBox1 отображаются файлы, находящиеся в текущем каталоге DirectoryListBox1. В обработчике FormCreate необходимо записать:

Комментарии

Популярные сообщения