Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TreeView


glazkov ©   (2016-09-21 07:14:00) 

добрый день!
есть дерево объектов:
1
1.1
1.1.1.1
1.1.2
1.2
1.3
2
2.1
2.2
индекс последнего из 1.1.1.1 я получить могу, а как получить индексы его родителей(например 1.1.1), что бы каждый индекс можно было отдельно поместить в свою переменную.


backuper   (2016-09-25 11:12:00) [1]


> if(Assigned(Родительский_нод)) then Другая_переменная:=Родительский_нод.
> Index;
> Родительский_нод:=Родительский_Нод.Parent;

а если Родительский_нод не ассигнед?


glazkov   (2016-09-22 05:50:00) [2]

по себе людей не судят


Германн   (2016-09-22 02:22:00) [3]


> glazkov ©   (22.09.16 01:22) [5]
>
> а кодом для наглядности можете написать

Кодом это не для наглядности. Кодом это для Копи+Паст.


glazkov   (2016-09-22 01:22:00) [4]

а кодом для наглядности можете написать


icWasya   (2016-09-21 17:17:00) [5]

моя_переменная := ПоследнийНод.Index;
Родительский_нод:=ПоследнийНод.Parent;
if(Assigned(Родительский_нод)) then Другая_переменная:=Родительский_нод.Index;
Родительский_нод:=Родительский_Нод.Parent;
if(Assigned(Родительский_нод)) then Третья_переменная:=Родительский_нод.Index;


iop   (2016-09-21 10:21:00) [6]

моя_переменная := ЛюбойНод.Index;


glazkov   (2016-09-21 10:14:00) [7]

Пример можете написать


iop   (2016-09-21 09:12:00) [8]

индексы парентов и непарентов лежат в точно таком же свойстве "index" как и у нода 1.1.1.1


Наверх

Титульная страница Поиск, карта сайта Написать письмо