Перебрать TreeView

← →
CrazyHackers (2002-08-13 15:11) [0]

Привет!
Хотел бы занести структуру дерева в таблицу (стандартная структура: id, родитель, название).

Не знаю как перебрать весь treeview, определяя при этом имеет ли ветвь подветви. И как вообще правильнее бы это сделать?

Помогите пожалуйста.

← →
Skier (2002-08-13 15:19) [1]

>CrazyHackers

> Не знаю как перебрать весь treeview

Можно так :

var CurrTreeNode : TTreeNode; //.................. CurrTreeNode := ATreeView.Items.GetFirstNode; while CurrTreeNode <> nil do begin CurrTreeNode := CurrTreeNode.GetNext; end; //while //..................

← →
CrazyHackers (2002-08-13 15:25) [2]

А как проверить есть ли "детки"?

← →
Skier (2002-08-13 15:28) [3]

>CrazyHackers

CurrTreeNode.HasChildren или CurrTreeNode.Items.Count > 0

← →
CrazyHackers (2002-08-13 15:40) [4]

:) немного подумав, решил что проще узнавать родителя, так как сразу смогу получить его идентификатор, а значит занести в таблицу. Как в этом случаи? Что я должен передать в качестве парметра?

← →
Skier (2002-08-13 15:43) [5]

>CrazyHackers

if CurrTreeNode.Parent <> nil then begin
with CurrTreeNode.Parent do begin
end; //if
end; //if

Перебрать TreeView Найти похожие ветки