Скачать: CL | DM;

TTreeView   Найти похожие ветки 

← →
DJ!   (2003-01-02 19:04) [0]

begin

Здравствуйте уважаемые МАСТЕРА!
Есть небольшой вопрос, на который я надеюсь получить ответ.

В TTreeView к 1-му TTreeNode добавляются Child"ы - полные пути к каким либо папкам.
(Они разбиваются на имена отдельных папок и добавляются по уровням,
т.е. как в стандартном диалоге обзора папки).
Как сделать, что - бы при добавлении путей "C:\Program Files\WinAmp" и "C:\Program Files\Delphi6"
была только одна ветвь "C:\Program Files\" с двумя Child"ами "WinAmp" и "Delphi6" ?

Заранее благодарен всем, кто поможет :p

end.

---

← →
Rouse_ ©   (2003-01-02 19:13) [1]

Элементарный парсинг.
к примеру:

Root:= "C:\Program Files\";
NewPath := "C:\Program Files\Winamp";
Delete(NewPath, 1, Length(Root));
//и теперь добавляй NewPath

Желаю успехов

---

← →
DJ!   (2003-01-02 19:19) [2]

Ну а если путей много и разных и не известна их ROOT ?

---

← →
TTCustomDelphiMaster ©   (2003-01-02 19:33) [3]

А что ExtractFileName и ExtractFileDir не работают?

---

← →
Rouse_ ©   (2003-01-02 19:46) [4]

А если каждый раз Root переопределять :))
Или написать такой код?

I:= Length(NewPath);
if NewPath[I] = "/" then Delete(NewPath, I, 1);
Dec(I);
while NewPath[I] <> "/" do Dec[I];
Delete(NewPath, 1, I);
//и теперь добавляй NewPath


Желаю успехов

---

← →
Геннадий ©   (2003-01-02 21:31) [5]

У тебя "на входе" путь. (C:\Windows\ICQ) Тебе его нужно разбить на подкаталоги. Для этого используй array of String (динамический). В ячейку [0] пиши первый подкатолог. (Windows) В [1] - второй - ICQ. Затем, когда ты путь "раскидал" в ячейки массива - в цикле проверяй с [0] существование ветки с нужным именем. Если нет - создавай. Если есть - добавляй child.

Вопросы?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c