Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];

Вниз

Количество   Найти похожие ветки 

 
Ag2002   (2002-09-13 17:34) [0]

Народ подскажите пожалуйста как узнать количество узлов находящихся на каком либо уровне без вложеных в него узлов т.е.
1
2
3
3
2
3
3
4
2
А мне нужно узнать количество только 2. Как это сделать ?


 
McSimm   (2002-09-13 17:40) [1]

TTreeNode.Count
Indicates the number of direct descendants of a tree node.


 
Ag2002   (2002-09-13 17:45) [2]

А как это написать в программе ?



 
DiHLoS   (2002-09-13 17:50) [3]


procedure TForm1.Button1Click(Sender: TObject);
var
i,num:integer;
begin
num:=0;
for i:=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Level=1 then inc(num); //подсчитываем кол-во узлов на 2 уровне
Label1.Caption:=IntToStr(num);
end;


 
McSimm   (2002-09-13 17:58) [4]

> Ag2002
Извиняюсь, я неправильно понял вопрос


 
Ag2002   (2002-09-13 18:10) [5]

Спасибо за пример, но я тут попробывал написать так

...
if TreeView1.Selected.Level = 1 then

... := TreeView1.Selected.Count
....

и тоже правлено работает !!! Почему ?


 
McSimm   (2002-09-13 18:21) [6]

Что тебе надо подсчитать?

Все элементы N-го уровня?
или
Все элементы N-го уровня, с общим родителем?


 
Ag2002   (2002-09-13 18:28) [7]

Нет все элементы только N-го уровня !!!
Но даже там где есть подузлы ко 2 например уровню такой вариант катит ??? ни понимаю почему



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

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

Наверх




Память: 0.45 MB
Время: 0.008 c
1-85483
Oleon
2002-09-16 15:50
2002.09.26
Здраствуйте. Помогите справиться с ошибкой, пожалуйста.


6-85623
DrKot
2002-07-19 16:39
2002.09.26
Как написать файрволл?


1-85572
Дима...
2002-09-14 07:54
2002.09.26
Проблема....


14-85660
Studios
2002-08-26 22:06
2002.09.26
Дома телефона нет


1-85508
Rule
2002-09-16 22:24
2002.09.26
Очень прошу помочь, помираю (горит проект) !!!!!!!!!!!!!!!!!!!!!!





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