Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.038 c
2-1159762006
Officeman
2006-10-02 08:06
2006.10.22
TToolBar


15-1159384785
ArtemESC
2006-09-27 23:19
2006.10.22
Как максимально быстро разобраться с ООП C++....


15-1159800150
vidiv
2006-10-02 18:42
2006.10.22
Шашки


2-1159878142
XTD
2006-10-03 16:22
2006.10.22
Сколько максимум может быть получателей Е-майл IdSMTP1?


9-1137401771
Kerk
2006-01-16 11:56
2006.10.22
Ошибки геймдизайнера: Горячая десятка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский