Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.12.2019, 18:43   #1
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию TreeView - количество корневых узлов

Код:
TreeView1.Items.Count
вовсе не то, он считает все подветви и корни а мне нужно только корни!

см. скрин..

мне нужно колличество

Код:
for i := 0 to TreeView1.Items.Count do begin
1,2,3,4,53534 а не то что внутри их
Изображения
Тип файла: jpg TreeView1.Items.Count.jpg (5.4 Кб, 52 просмотров)
AppData вне форума Ответить с цитированием
Старый 09.12.2019, 19:20   #2
weatherbad
Заблокирован
 
Регистрация: 29.11.2019
Сообщений: 5
По умолчанию

getNextSibling начиная с TreeView1.Items[0] и счетчик. Такого Count нет. Кстати внизу похожие темы
weatherbad вне форума Ответить с цитированием
Старый 09.12.2019, 19:31   #3
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию

Код:
var
 i,i1: integer;
 t: TTreeNode;

  t:=Form1.TreeView1.Items[0];
repeat
 t:=t.getNextSibling;
 inc(i);
until t=nil;

  for i := 0 to i1 do begin

  Form1.Caption := IntToStr(i);
не помогло! как быть?
AppData вне форума Ответить с цитированием
Старый 10.12.2019, 02:28   #4
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Пробегись по списку TTreeView.Items.
Плюсуй те у которых Level = 0
northener вне форума Ответить с цитированием
Старый 07.01.2020, 16:28   #5
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
TTreeView.Items.
поправь меня как это сделать? у меня ничего не вышло
AppData вне форума Ответить с цитированием
Старый 11.01.2020, 15:48   #6
KDP
Новичок
Джуниор
 
Регистрация: 11.01.2020
Сообщений: 1
По умолчанию

Код:
procedure TTestAreaMain.Button32Click(Sender: TObject);
var
    i  : integer;
    ttn: TTreeNode;
begin
  i:=0;
  ttn := TreeView1.Items.GetFirstNode;
  while Assigned(ttn) do
  begin
    inc(i);
    ttn := ttn.getNextSibling;
  end;
  Memo3.Lines.Add('В дереве обнаружено '+IntToStr(i)+' узлов верхнего уровня.');
end;
У меня работает...
KDP вне форума Ответить с цитированием
Старый 02.02.2020, 12:58   #7
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию

Спасибо огромное,

а что я делаю не так?

Код:
Form1 := Form1.TreeView1.Items.Item[i].Item[0].Text
я хочу чтобы показывал имя в корне

допустим в дереве TreeView1 находится

Капуста
колл=5
сумма=2,50
Огурец
колл=3
сумма=8,90
Картошка
колл=8
сумма=5,60

Код:
 for tmsong := i to ii do begin
выходила Капуста
Add := TreeView1.Items.Item[i].Item[0].Text
выходила Огурец
Add := TreeView1.Items.Item[i].Item[0].Text
и Картошка
Add := TreeView1.Items.Item[i].Item[0].Text
AppData вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
treeview получить список узлов одного уровня MetR Помощь студентам 0 27.04.2011 13:50
TreeView - количество корневых узлов Sanprof Общие вопросы Delphi 11 11.08.2010 15:29
Добавление узлов в XML в Delphi, исользуя Treeview Анастасия999 Помощь студентам 0 08.05.2010 10:05
Сортировка узлов дерева treeview gool Общие вопросы Delphi 1 06.11.2009 09:20
Поиск узлов в TreeView Ko$tello Компоненты Delphi 1 14.11.2006 17:18