Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
ВНИМАНИЕ!Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| работа с TShellListView и TShellTreeView, переход по папкам |
| kr3v3tkus |
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация:  0   |
подскажите плз как осуществляется работа с TShellListView и TShellTreeView, конкретнее - необходимо указать директорию, у которой в нутри есть папки, для каждой из них сделать проверку SelectedFolder.SubFolders, если подпапок нет - совершить какое-либо действие, если же есть - то уйти вниз ещё на уровень и снова совершить предыдущее действие. Тоесть например:
 в папке Black Lagoon ещё 2 папки в каждой из которых уже нет подпапок а в папке !new1 есть ещё подпапки, в которых тоже могут быть подпапки Подскажите или киньте ссылку на толковый мануал плиз  -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
   |
 
|
  |
| kr3v3tkus |
Сообщение
#2
|
|
Пионер Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация: 0 |
блиин
 вольв а мыж тут каждый раз обнуляем SetLength(arr, 0); а вдруг нужно посчитать в разных папках? если не обнулять то косяки получаются -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
|
|
|
kr3v3tkus работа с TShellListView и TShellTreeView 8.02.2008 7:36
Better Kind рекурсия 8.02.2008 18:24 kr3v3tkus ммм я наверно оч туманно выразился ^__^ проблема в… 8.02.2008 21:36 kr3v3tkus хмм ладно - а если у меня есть такой код
if … 10.02.2008 7:57 volvo Это чего? :blink: А если будет не пятая колонка, … 10.02.2008 18:44 kr3v3tkus volvo
домо аригато ^__^ опять спас :)
нащёт пяти … 10.02.2008 22:58 kr3v3tkus а вот такой вопросик - есть вот такая структура па… 14.02.2008 20:53 volvo Что имеется в виду "не считается"? Папка… 14.02.2008 22:05 kr3v3tkus
действительно в гриде есть... а в выходном хтмл ф… 14.02.2008 22:40 volvo kr3v3tkus, извини, не мог пройти мимо твоего кода.… 15.02.2008 1:15 kr3v3tkus
да я тоже без судорог на него не мог смотреть :) … 15.02.2008 2:35 volvo Просто привычка, можешь без нижнего подчеркивания … 15.02.2008 2:49 volvo Это какие, например? Если обнулить при FormCreate … 15.02.2008 4:00 kr3v3tkus я имею ввиду: выбираем папку. делаем StartClick, в… 15.02.2008 4:02 volvo Сорри, но "другой диск" - это значит … 15.02.2008 4:07 kr3v3tkus ну вот у меня он на первый взгляд если по папке до… 15.02.2008 4:16 volvo procedure TForm1.StartClick(Sender: TObject);
var
… 15.02.2008 4:42 kr3v3tkus блин :( сори туплю - перенёс я в Private их и он н… 15.02.2008 4:52 volvo Ну, перенести-то заголовки перенес, а изменить в р… 15.02.2008 4:58 kr3v3tkus *окончательно чуствует себя идиотом и уползает под… 15.02.2008 5:02 kr3v3tkus можно последний вопрос? :)
вот если в папке нет фа… 15.02.2008 5:24
volvo Я что, просто так сказал
? Еще не догадался, что … 15.02.2008 6:08 |
|
Текстовая версия | 9.09.2025 20:03 |
