Как перебрать корневые узлы в TTreeView ?

← →
ikar (2001-12-21 09:10) [0]

Нужно перебрать только те которые находятся в корне, или хотябы идентифицировать в корне данный узел или нет.

← →
Praco (2001-12-21 09:21) [1]

for i:= 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items[i].Level = 0 then
ShowMessage("Корень");

← →
McSimm (2001-12-21 10:42) [2]

Можно не перебирать все дерево, а взять первый элемент и перебрать его собратьев:
N := Items[0]
while Assigned(N) do
begin
ShowMessage(N.Text);
N := N.GetNextSibling
end

Как перебрать корневые узлы в TTreeView ? Найти похожие ветки