Что за класс TTreeNode и с чем его едят?

← →
Flex_ © (2006-02-07 11:59) [0]

В общем встрял с TreeView и добавлением в него объектов(строк), не могу разобраться с функцией AddChild, помогите пожайлуста!

← →
Ega23 © (2006-02-07 12:04) [1]

procedure TCustomKdrDBTreeView.AddAllNodes(ParentID: Variant; ParentNode: TTreeNode); var k:Integer; CurrNode:TTreeNode; begin for k:=0 to FTreeItems.Count-1 do begin With TKdrDBTreeViewItemIdent(FTreeItems.Items[k]) do begin if (Node<>nil) or (ParentKeyFieldValue<>ParentID) then Continue; if ParentNode=nil then CurrNode:=Items.Add(nil, DisplayFieldValue) else CurrNode:=Items.AddChild(ParentNode, DisplayFieldValue); CurrNode.ImageIndex:=ImageIndex; CurrNode.SelectedIndex:=ImageIndex; Node:=CurrNode; CurrNode.Data:=FTreeItems.Items[k]; AddAllNodes(KeyFieldValue, CurrNode); end; // With end; // for end;

Рекурсивная процедура. По некоторому списку строит TreeView

← →
DesWind © (2006-02-07 12:05) [2]

function AddChild(Node: TTreeNode; const S: string): TTreeNode;

А в чем собсна проблема? Node - родитель, s - текст(заголовок Node)

← →
Flex_ © (2006-02-07 12:17) [3]

Проблема похоже во мне! Просто я никогда не работал с TreeView, и не врубился. Спасибо тебе Ega23! Суть состояла в том, что имеется таблица БД и по ней строится TreeView причём данные в таблице представляют собойдревовидную структуру! Вот и всё!

> Проблема похоже во мне! Просто я никогда не работал с TreeView,
> и не врубился. Спасибо тебе Ega23! Суть состояла в том,
> что имеется таблица БД и по ней строится TreeView причём
> данные в таблице представляют собойдревовидную структуру!
> Вот и всё!

посмотри тут
http://delphimaster.net/view/2-1139229210/
начиная с [17]
Я когда-то ваял БД-компонентик, строящий дерево по набору данных.

Похоже разобрался, меня свела с толку функция Add... с TTreeNode. Спасибо огромное.

Что за класс TTreeNode и с чем его едят? Найти похожие ветки