TreeView - количество корневых узлов

[Sanprof]

собственно вопрос в теме, как узнать количество корневых узлов в TreeView, не могу понять, голова совсем не варит.

[Ins]

Проверяй свойство Level в цикле по TreeView.Items.Count

[Stilet]

Что-то типа:

var i:integer;t: TTreeNode;
begin     i:=0;
 t:=TreeView1.Items[0];
repeat
 t:=t.getNextSibling;
 inc(i);
until t=nil;
Caption:=IntToStr(i);
end;

в цикле по TreeView.Items.Count

А если их миллиардов девятсот?

[Ins]

А если их миллиардов девятсот?

Маловероятно, но вот если их 0 и TreeView1.Items[0] = nil...

[Sanprof]

Проверяй свойство Level в цикле по TreeView.Items.Count

это я и сам догадался, я думал может есть свойство Count, которое сразу берет количество корневых узлов.

Что-то типа:

var i:integer;t: TTreeNode;
begin     i:=0;
 t:=TreeView1.Items[0];
repeat
 t:=t.getNextSibling;
 inc(i);
until t=nil;
Caption:=IntToStr(i);
end;

пасиб работает

[Stilet]

но вот если их 0 и TreeView1.Items[0] = nil...

Это да. Не учитывал я этого. Ну тут я думаю автор всетки догадается поставить проверку

[Sanprof]

вопрос вдогонку, как выделить последний корневой узел если их, к примеру, 10?

[Ins]

Точнее даже не так... TreeView1.Items[0] не вернет nil, а выплюнет EListIndexError. Проверка количества должна стоять в самом начале

[Stilet]

выделить последний корневой узел

...
until t=nil;
Caption:=IntToStr(i);
t.Selected:=true;

[Ins]

Stilet, ты перед тем как запостить сам то код читаешь? У тебя t = nil