Главная страница
    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.012 c
1-85490
der
2002-09-16 09:24
2002.09.26
просмотр RTF


3-85400
michael_b
2002-09-05 15:06
2002.09.26
Слышал, что Borland начиная с delphi 7 не поддерживает SQL-links


1-85537
IgorV
2002-09-13 11:07
2002.09.26
THintWindow


1-85518
Akim2
2002-09-15 14:28
2002.09.26
Как стандартную панель сделать прозрачной?


6-85622
Brand
2002-07-11 23:07
2002.09.26
ClientSocket, ServerSocket - несколько отправок





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