![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| z-END |
|
|||
![]() прафесар™ ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3014 Регистрация: 13.3.2003 Где: Венья, Пиетари Репутация: 11 Всего: 102 |
Пришла весна и лыжи встали
Вот: имеется список папок и имеется адрес еще одной папки, нужно определить является или он вложенной в данный список (или папка из списка является вложеной для нее, или просто они одинаковы) или нет. (проще говоря изнать пересекаются они или нет) Напрмер: [список] 1:C:\folder\Sub 2:C:\folder\Sub\xSub ... Надо получть: папка: C:\folder (родительская папка для Список[1]) - True папка: C:\folder\Sub\xSub\New (подпапка для Список[2])- True папка: C:\folder\Sub (идентичны)- True папка: C:\folder\New (папки не пересекаются - зер гуд)- False ЗЫ надеюсь понятно объяснил... подругому даж незнаю как это объяснить -------------------- Каждый чилавек пасвоему праф...а памоему НЕТ! |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
а в чем проблема?
сравниваеш SubString второй папки с первой ( на длину родительской ) длина родительской получается проходом справа до первого "\" если равны -- отлично ( они как минимум пересекаются ) проверяеш следующий символ второй папки. если это "\" -- отлично -- имеем подпапку ну и если SubString не равен -- совсем хорошо -- пересечений -- нет как смог -- объяснил -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| z-END |
|
|||
![]() прафесар™ ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3014 Регистрация: 13.3.2003 Где: Венья, Пиетари Репутация: 11 Всего: 102 |
Снега на улице нет, вот почему лыжи не едут!
я опять непонял -------------------- Каждый чилавек пасвоему праф...а памоему НЕТ! |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
тут есть проблема ( точнее вопрос ): папки имеют такую структуру, как ты привел ( т.е. xSub -- подпапка Sub ) или может быть несколько родительских папок?
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| z-END |
|
|||
![]() прафесар™ ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3014 Регистрация: 13.3.2003 Где: Венья, Пиетари Репутация: 11 Всего: 102 |
_hunter это я пример привел
насаом деле список может составлять до тысячи папок, и вложенность у них может быть такой какую юзверь решить сделать -------------------- Каждый чилавек пасвоему праф...а памоему НЕТ! |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
тогда делай так:
folder -- проверяемая папка folder[i] -- папка из списка первая ходка: проверяеш ( для всех папок из списка ) folder[i].Pos(folder) <> 0 если не равно 0 -- folder -- родительская папка для folder[i] и выход вторая ходка: проверяеш ( для всех папок из списка ) folder.Pos(folder[i]) <> 0 если не равно 0 -- folder[i] -- родительская папка для folder и выход кажись все -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| z-END |
|
|||
![]() прафесар™ ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3014 Регистрация: 13.3.2003 Где: Венья, Пиетари Репутация: 11 Всего: 102 |
точняк.. пасибо!
-------------------- Каждый чилавек пасвоему праф...а памоему НЕТ! |
|||
|
||||
| _hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
пожалуйста
обращайтесь еще. -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |