Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Вниз

TreeView   Найти похожие ветки 

← →
Roma L   (2006-10-04 11:13) [0]

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

---

← →
Dmitrij_K   (2006-10-04 11:14) [1]

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

---

← →
MBo ©   (2006-10-04 11:26) [2]

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

---

← →
UDPS   (2006-10-04 11:33) [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) [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;

---

← →
Roma L   (2006-10-04 11:35) [5]

Большое спосибо, но я поступил так
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;

---

← →
Dmitrij_K   (2006-10-04 11:41) [6]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.053 c