Текущий архив: 2003.09.29;
Скачать: 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 вся ветка
Текущий архив: 2003.09.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.039 c
