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

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

treeview


Страницы:   1 2

Дилан ©   (2008-02-08 15:16:00) 

у меня есть стринггрид и там две колонки.
в первой слова, а во второй.
но во второй они повторяются.
как мне сделать чтобы в treeview главными нодами были слова которые повторяются а чайлдами те что у повторяющихся в первой колонке?


Дилан   (2008-02-08 15:39:00) [21]

with TreeView1 do
 begin
   for i := 1 to StringGrid1.RowCount - 1 do
   begin
     s1 := StringGrid1.Cells[1, i];
     s2 := StringGrid1.Cells[2, i];
     Nod := Items.Add(nil, s2);

     for j := i to StringGrid1.RowCount - 1 do
       if StringGrid1.Cells[2, j] = s2 then
       begin
         s1 := StringGrid1.Cells[1, j];
         Items.AddChild(nod, s1);
       end;
   end;

 end;

единственная проблема это то что повторяются слова...


Dib@zol   (2008-02-08 15:34:00) [22]

Удалено модератором


Дилан   (2008-02-08 15:33:00) [23]

f1 - решает :)


sniknik   (2008-02-08 15:32:00) [24]

на месте nil должен быть нод к которому хочеш добавить
> нужно как бы   Items.Add(Items[i],s2);  
"как бы" это как раз и правильно...


Дилан   (2008-02-08 15:29:00) [25]

как добавлять   Items.Add(nil,s2); в цикле добавляет все в первый нод,а мне нужно как бы   Items.Add(Items[i],s2);


easy   (2008-02-08 15:29:00) [26]

она схватила ему за руку и неоднократно спросила: где ты девал деньги


ketmar   (2008-02-08 15:24:00) [27]

>[1] Сергей М. © (2008-02-08 15:17:00)
наверное в том, что «кидать батоны» научили, а программировать — нет.

---
Understanding is not required. Only obedience.


Сергей М.   (2008-02-08 15:17:00) [28]

А в чем собссно проблема ?


Страницы:   1 2

Наверх

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