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

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

1. Компонент DriveComboBox используется для выбора дисковода, представляет собой комбинированный список, который содержит все установленные дисковые накопители. Выбранное устройство отображается в поле компонента, а соответствующая выбранному дисководу буква содержится в свойстве Drive. Аналогичное свойство имеется у компонентов DirectoryListBox и FileListBox.
2. Компонент DirectoryListBox служит для просмотра и перемещения по дереву каталогов. Свойство Directory содержит строку указывающую текущий каталог. Можно обеспечить связь компонентов 1 и 2 программно, включив в обработчик события OnChange компонента DriveComboBox следующий оператор:

DirectoryListBox1.Drive:=DriveComboBox1.Drive;

view raw DirectoryDisc.pas hosted with ❤ by GitHub

3. Компонент FileListBox предназначен для просмотра списка файлов заданного каталога. При выборе пользователем файла в свойство FileName заносится полное имя выбранного файла. Управлять отображением файлов в списке можно с помощью свойств FileType и Mask. Свойство FileType указывает атрибуты файлов и принимает следующие значения:

• ftReadOnly
• ftHidden
• ftSistem
• ftArchive
• ftNormal

Свойство Mask содержит маску для файлов списка. По умолчанию используется маска: *.* . Файлы в списке могут выводится со значками или без них ShowGlyphs. Чтобы можно было выбирать несколько файлов свойство MultiSelect устанавливается в true.

4. Компонент FilterComboBox осуществляет выбор маски для списка файлов. Фильтр состоит из маски и текстового описания. Доступ к фильтру осуществляется через свойство Filter. При совместном использовании компонентов FilterComboBox и FileListBox для организации связи между ними используется свойство FileList.

Настроим компоненты следующим образом: при навигации по папкам в компоненте FileListBox1 отображаются файлы, находящиеся в текущем каталоге DirectoryListBox1. В обработчике FormCreate необходимо записать:

DirectoryListBox1.FileList:=FileListBox1;

view raw FileListBox.pas hosted with ❤ by GitHub