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

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

← →
Relaxxx ©   (2003-09-18 10:50) [0]

Здраствуйте мастера!!
У меня вот вопрос. Есть запорлнений ТриВиев, меня вот интересует, кас мне вытянуть всех робителей выделенного обьекта и записать их через запятую. Надеюсь вопрос ясен???

---

← →
Юрий Федоров ©   (2003-09-18 10:54) [1]

через св-во TTreeNode.Parent
в цикле, пока он не станет равным nil(это корневой уровень)

---

← →
Erik   (2003-09-18 11:00) [2]

Я вобще с масивом работал по которому дерево строится.
Index - это потомок и его номер в масиве.
Level - уровень потомка относительно родителя.
function TDevices.GetRoot(const Index: Integer; const Level: PInteger): Integer;
begin
Inc(Level^);
if ptrSeadmed^[Index].ParentID > -1 then
Result := GetRoot(ptrSeadmed^[Index].ParentID, Level)
else
Result := Index;
end;

---

← →
Song ©   (2003-09-18 11:41) [3]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1063088996;start=18

---

← →
Relaxxx ©   (2003-09-18 12:04) [4]

ВСЕМ СПАСИБО ЗА ПОМОЩЬ. ВОПРОС СНЯТ

---

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

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



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