TreeView

[HOOCH94]

Всем привет
нашел для себя полезное свойство у триивью

TreeView1.Selected.Text

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

Например :
Цех - текст не получаем[корневой каталог]
____Цех №1 - получаем [подкаталог]
____Цех №2 - получаем [подкаталог]
Ашот - текст не получаем[корневой каталог]
____Рубэн - получаем[подкаталог]
____Рудик - получаем[подкаталог]
зарание кол-во "корневых коталогов дерева" не известно, помогите пожалуйста что здесь можно придумать

ps : или можно каждому корневому каталогу задать один какой нибудь индекс и потом проверить его условием if maintree.index =1 then что либо ?

[Прик]

У каждого ноуда (каталога, подкаталога) есть свойство Level и его значение зависит от уровня вложенности.
У корневых ноудов оно ВСЕГДА равно нулю, у вложенных больше нуля.

var
  TN : TTreeNode;
begin
  TN := TV.Items.GetFirstNode;
  while TN <> nil do begin
    if TN.Level > 0 then
      <получаем текст>
    TN := TN.GetNext;
  end;
end;

[HOOCH94]

при выполнении этого кода ничего вообще не происходит, как выделялись все так и выделяются (

procedure Tmainform.maintreeClick(Sender: TObject);
var
  TN : TTreeNode;
  begin
  TN := maintree.Items.GetFirstNode;
  while TN <> nil do begin
    if TN.Level > 0 then
maintab.Caption:=maintree.Selected.Text;
    TN := TN.GetNext;

  end;
end;

[Прик]

А при чем здесь

maintab.Caption:=maintree.Selected.Text;

если надо брать текст от текущего ноуда в цикле:

maintab.Caption := TN.Text;

Чего здесь непонятного?

К тому же, текст от первого встретившегося в цикле вложенного "подкаталога" мы возьмем, но следующий встретившийся подкаталог перепишет maintab.Caption своим текстом.