Показать сообщение отдельно
  #8  
Старый 10.04.2014, 14:03
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от kasimka
Теперь понял, спасибо! Но есть один недостаток: корневые узлы создаются вне зависимости от того есть ли в них необходимость, т.е. не должно быть пустых корневых узлов, в которых не будет дочерних узлов.
Если пустые узлы не нужны - их легко можно удалить:
Код:
    // После заполнения удаляем пустые узлы:
    for i := Low(ClassesNodes) to High(ClassesNodes) do
    begin
      if not ClassesNodes[i].HasChildren then ClassesNodes[i].Delete;
    end;
  finally
    TreeView.Items.EndUpdate;
  end;
end;
Ответить с цитированием