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

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

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