Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
1-85585
[WhItE]
2002-09-14 00:29
2002.09.26
Delphi Outlook(Входящие)


1-85570
tararasyk
2002-09-14 01:34
2002.09.26
Спрятать все ошибки


3-85375
Шурик Ш
2002-09-05 11:28
2002.09.26
Редактирование DBGrid


14-85704
Lexer
2002-08-28 18:09
2002.09.26
Мастера, очень нужен Grid.


1-85500
id_privin
2002-09-13 12:39
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский