Работа с папками в Delphi

[artemavd]

Доброго времени суток! Интересует такой вопрос. Есть папка, в ней другие папки, в которых лежат pdf-ки. Несколько тысяч. Все они имеют формат имени, например, 204_1_134245. Где 204 - название папки, в которой находится данная pdf-ка. Есть несколько вопросов:
1. Как в StringGrid (или другой компонент) вывести список в виде столбца, в котором бы содержались все названия папок, которые находятся в главной? Например, в таблицу должно вывестись: 204,205... и т.д.
2. Как при выборе номера какой то папки, опять же в стрингриде или еще в каком компоненте, отобразить названия файлов, которые хранятся в выбранной папке?
Заранее спасибо. Большая просьба помочь ссылками или информацией, которая поможет мне в решении данного вопроса.

[Stilet]

http://www.delphiworld.narod.ru/_all_articles_.html - Раздел Директории - [55]
TDirectoryListBox [FileCtrl] - в помошь для списка каталогов в указанном без вложений.

[Grag]

Если тебе нужно что-то типа этого, то используй TShellTreeView
Screenshot - 11.06.jpg

[artemavd]

Хмм...деревр - это конечно интересный вариант. Да надо подумать над этим. А как потом можно организовать поиск по дереву?

[Grag]

Разбирайся...

        Folder:=FrmNetFolders.ShellTreeView.Path;
        CurCnt:=0;
        cntFoundFile:=0;
        cntAddFile:=0;
        SLNew:=TStringList.Create;
        SLNew.Sorted:=true;
        SLNew.Duplicates:=dupIgnore;
        FindFileNew.Criteria.Files.Location:=Folder;
        FindFileNew.Criteria.Files.FileName:=ShablonFile;
        Screen.Cursor:=1;  //показываю анимированный курсор
        Application.ProcessMessages;
        FindFileNew.Execute;
        Screen.Cursor:=crDefault;
        Application.ProcessMessages;
        ldrStatBar.Panels[1].Text:=' Найдено файлов - '+IntToStr(cntFoundFile);

Правда в этом кусочке использован сторонний компонент FindFile. С ним гораздо удобнее организовать поиск, чем стандарными средствами...

[Stilet]

TShellTreeView

Какашистый это компонент... Тормоза от него немерянные.
Я в свое время с нуля ShellTreeView для себя сделал, а от этого компонента отказался и не пожалел

[VintProg]

Наверное про работу с папками здесь есть:
http://programmersup.3dn.ru/load/uch...rsija/4-1-0-14

[artemavd]

Еще есть вопрос по работе с компонентом ShellListView
Возможно ли сделать так, чтобы в первую колонку StringGrida занеслось первые три-четыре (без подчеркивания) символа? Иными словами, как получить такой заполненный стринггрид как на скрине, который называется "должно быть"?

[Stilet]

Функции POS+COPY вполне подойдет для разбора

[artemavd]

Stilet, а можешь на примере показать? Я посмотрел в справке Delphi, там не то.