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

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

Перебрать TreeView [D6, WinXP]


CrazyHackers ©   (2002-08-13 15:11:00) 

Привет!
Хотел бы занести структуру дерева в таблицу (стандартная структура: id, родитель, название).

Не знаю как перебрать весь treeview, определяя при этом имеет ли ветвь подветви. И как вообще правильнее бы это сделать?

Помогите пожалуйста.


Skier   (2002-08-13 15:43:00) [1]

>CrazyHackers

if CurrTreeNode.Parent <> nil then begin
with CurrTreeNode.Parent do begin
end; //if
end; //if


CrazyHackers   (2002-08-13 15:40:00) [2]

:) немного подумав, решил что проще узнавать родителя, так как сразу смогу получить его идентификатор, а значит занести в таблицу. Как в этом случаи? Что я должен передать в качестве парметра?


Skier   (2002-08-13 15:28:00) [3]

>CrazyHackers

CurrTreeNode.HasChildren или CurrTreeNode.Items.Count > 0


CrazyHackers   (2002-08-13 15:25:00) [4]

А как проверить есть ли "детки"?


Skier   (2002-08-13 15:19:00) [5]

>CrazyHackers



> Не знаю как перебрать весь treeview


Можно так :


var
CurrTreeNode : TTreeNode;
//..................
CurrTreeNode := ATreeView.Items.GetFirstNode;
while CurrTreeNode <> nil do begin
CurrTreeNode := CurrTreeNode.GetNext;
end; //while
//..................


Наверх

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