![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Дано: таблица StringGrid (в ней содержиться названия классов: 5а,5б,6в,11а,9б и т.д.), дерево TreeView
Задача: добавить данные из таблицы в дерево Условие: если в таблице есть хоть один 5 класс - должен быть создана корневой узел "5 классы" и в него добавлены все 5 классы, которые есть, и т.д. Классы с нестандартными именами должны быть добавлены в корневой узел "Другие классы". Частично я реализовал это так: Код:
...
var
ClassesNodes: array[5..12] of TTreeNode;
...
for i:=5 to 11 do
for j:=1 to MainForm.StringGridClasses.RowCount-1 do
begin
if Pos(IntToStr(i),MainForm.StringGridClasses.Cells[1,j])=1 then
if not ClassesNodes[i].IsVisible then
begin
ClassesNodes[i]:=TreeView.Items.Add(nil, IntToStr(i)+' классы');
TreeView.Items.AddChild(ClassesNodes[i], MainForm.StringGridClasses.Cells[1,j]);
end
else
TreeView.Items.AddChild(ClassesNodes[i], MainForm.StringGridClasses.Cells[1,j]);
end;
...-5 классы ---5 а ---5 б ---5 в -10 классы ---10 а ---10 б Но как добавить классы, которые не попали под категорию? Например, "секция карате", "группа продленного дня" и т.п. |