Исходник программы, показывающей пример поиска файлов по маске. Количество отображаемых найденных файлов может быть ограничено числом результатов 10, 100, 1000 или «Все».
Есть опции для установки символов, используемых в качестве «шаблона» в результирующем списке. Символы будут вставлены слева от отображаемых записей. По умолчанию для папок используется символ минуса, а для файлов - пробел.
Программа использует функции API поиска в каталогах Windows FindFirst, FindNext и MatchesMask в рекурсивной функции GetNext для просмотра папок с целью получения имен файлов для проверки их отображения.
Файлы со связанными с ними программами можно открывать, а папки можно просматривать, дважды щелкнув любую строку в результирующем списке.
Самой сложной частью программирования было разбиение полных адресов файлов в древовидный формат с сохранением полной информации об их адресах. Поскольку строковые записи в TMemo не могут иметь связанных записей, самым простым решением было создать список TObject с записями в том же порядке, что и строки TMemo, и сохранить там адрес ссылки и тип записи (файл или папка).
