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

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

TreeView [D7]

Roma L ©   (2006-10-04 11:13:00) 

Необходимо получить список из всех внутренних элементов treeView. Если конкретно, то пусть имеется дерево
1-
  -2
  -3
-4
  -5
     -6
-7
И необходимо составть список вида 2,3,6,7, но для произвольного дерево. Кто -нибудь знает хороший метод.
Заранее спасибо!.

---

Dmitrij_K   (2006-10-04 11:41:00) [1]

Offtop
зачем?
n:=Tree.Items.Count;
for I := 0 to n-1  do
если можно
for I := 0 to Tree.Items.Count-1  do

---

Roma L   (2006-10-04 11:35:00) [2]

Большое спосибо, но я поступил так
n:=Tree.Items.Count;
for I := 0 to n-1  do
  begin
    if not Tree.Items[i].HasChildren then
    ShowMessage(Tree.Items[i].Text);
  end;
end;

---

UDPS   (2006-10-04 11:33:00) [3]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n:integer;
begin
n:=Tree.Items.Count;
for I := 0 to n-1  do
  begin
    if not Tree.Items[i].HasChildren then
    ShowMessage(Tree.Items[i].Text);
  end;
end;

---

UDPS   (2006-10-04 11:33:00) [4]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n:integer;
begin
n:=Tree.Items.Count;
for I := 0 to n-1  do
  begin
    if not Tree.Items[i].HasChildren then
    ShowMessage(Tree.Items[i].Text);
  end;
end;

---

MBo   (2006-10-04 11:26:00) [5]

что такое внутренние элементы???
В примере это похоже на листья - тогда обойти дерево (рекурсивно, например), и  проверять Node.Count

---

Dmitrij_K   (2006-10-04 11:14:00) [6]

перебор
ListView.Items[].Level

---

Наверх