Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Как "распутать" обратный путь в TTreeView у TTreeNode   Найти похожие ветки 

← →
mmms   (2005-07-11 00:06) [0]

у субменю не важно какого порядка. Т.е. есть пример

+продукты
+фрукты
 +цитрусовые
  -мандарины
  -апельсины
  -лимоны
+овощи


Если выделить мандарины, нужно получить строку вида
продукты-фрукты-цитрусовые-мандарины
Заранее благодарен.

---

← →
Юрий Зотов ©   (2005-07-11 00:14) [1]

function GetFullNodeName(Node: TTreeNode): string;
begin
 Result := Node.Text;
 while Node.Parent <> nil do
 begin
   Result := Node.Parent.Text + "-" + Result;
   Node := Node.Parent
 end
end;

---

← →
Anatoly Podgoretsky ©   (2005-07-11 00:14) [2]

Parent рекурсивно

---

← →
mmms   (2005-07-11 08:33) [3]

Юрий Зотов ©   (11.07.05 00:14)
Anatoly Podgoretsky ©   (11.07.05 00:14)
Большое спасибо!

---

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

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.029 c