Главная страница
    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.46 MB
Время: 0.053 c
15-1159789173
Real
2006-10-02 15:39
2006.10.22
Всплавающая подсказка (HTML)


2-1159719141
SanJouK
2006-10-01 20:12
2006.10.22
Русский help для Delphi 7


2-1160296945
WoW
2006-10-08 12:42
2006.10.22
Чем virtual отличаеться от abstract...


2-1160034776
o_serg
2006-10-05 11:52
2006.10.22
TreeView с CheckBox ами


11-1135254985
BaryVetaL
2005-12-22 15:36
2006.10.22
Разработка конвертора VCL to KOL





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский