Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблема при добавлении ноды в VirtualStringTree 
V
    Опции темы
bistropoke
Дата 26.10.2011, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2011

Репутация: нет
Всего: нет
подскажите в чем может быть ошибка?
заполняю VST данными из базы

в самом начале я заполняю VST нодами нулевого уровня.

Код

squery:='select idtype_params as id,name from type_params where level =0';
     form1.SQLQuery1.SQL.Clear;
     form1.SQLQuery1.SQL.Text :=  squery;
     form1.SQLQuery1.Open;
     while not form1.SQLQuery1.EOF do begin
       nodename:= form1.SQLQuery1.FieldByName('name').AsString;
       nodeid:=form1.SQLQuery1.FieldByName('id').AsInteger;
       nodelevel:= 0  ;
       XNode:=form1.VT.AddChild(nil);
       if form1.VT.AbsoluteIndex(xnode)>-1 then
        begin
          data:= form1.vt.GetNodeData(xnode);
          data^.name:=nodename;
          data^.id:=nodeid;
          data^.level:=0;
          data^.parent:=-1;
        end;
     form1.SQLQuery1.Next;
     end;
     form1.SQLQuery1.Close;     


далее хочу добавить ноды второго уровня

Код

query:='select tp.idtype_params as id,tp.name,tp.parent, tp.sname, nei.name as edizm from type_params as tp join nsi_edizm as nei on tp.ediz_m=nei.idnsi_edizm where tp.level = '+inttostr(y);
     form1.SQLQuery1.SQL.Clear;
     form1.SQLQuery1.SQL.Text :=  squery;
     form1.SQLQuery1.Open;
      while not form1.SQLQuery1.EOF do begin
       nodename:= form1.SQLQuery1.FieldByName('name').AsString;
       nodeid:=form1.SQLQuery1.FieldByName('id').AsInteger;
       nodelevel:= y;
       nodeparent:= form1.SQLQuery1.FieldByName('parent').AsInteger;
       nodeedizm:= form1.SQLQuery1.FieldByName('edizm').Asstring;
       nodesname:= form1.SQLQuery1.FieldByName('sname').AsString;
      // находим родителя
       XNode:= form1.VT.GetFirst;
        while XNode <> nil do
          begin
              Data:=form1.VT.GetNodeData(XNode);
              if Data^.id  = nodeparent then
                  begin
                        form1.VT.ClearSelection;
                        form1.VT.Selected[XNode]:=True;
                        form1.VT.SetFocus;
                        break;
                  end else
           XNode:= form1.VT.GetNextSibling(XNode);
        end;
       // добавляем ноду
          XNode := form1.VT.AddChild(form1.VT.FocusedNode);
          data:= form1.vt.GetNodeData(xnode);
          data^.name:=nodename;
          data^.id:=nodeid;
          data^.level:=y;
          data^.parent:=nodeparent;
          data^.edizm:=nodeedizm;
          data^.sname:=nodesname;
     form1.SQLQuery1.Next;
     end;
     form1.SQLQuery1.Close;         


но нода добавляется в корень.

при этом поиск ноды по условию parent потомка = id родителя успешен.
и нода выделяется.
но добавление происходит не как потомок у выделеной ноды
а как новая корневая нода.  smile 
PM MAIL   Вверх
MetalFan
Дата 26.10.2011, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(bistropoke @  26.10.2011,  20:03 Найти цитируемый пост)
if form1.VT.AbsoluteIndex(xnode)>-1 then

А что делает эта проверка?

И зачем такой изврат с визуальной частью? в плане сброса/установки выделения, передачи фокуса дереву, затем добавление ребенка FocusedNode, который скорее всего так и остался nil.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
bistropoke
Дата 26.10.2011, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2011

Репутация: нет
Всего: нет
[QUOTE=MetalFan,26.10.2011,  21:41]
Цитата(bistropoke @  26.10.2011,  20:03 Найти цитируемый пост)
if  в плане сброса/установки выделения, передачи фокуса дереву, затем добавление ребенка FocusedNode, который скорее всего так и остался nil.

пожалуйста подскажите как сделать правильнее  smile 
PM MAIL   Вверх
MetalFan
Дата 26.10.2011, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
выкинуть
Код

form1.VT.ClearSelection;
form1.VT.Selected[XNode]:=True;
form1.VT.SetFocus;

заменить
Код

// добавляем ноду
   XNode := form1.VT.AddChild(XNode);



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
bistropoke
Дата 26.10.2011, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2011

Репутация: нет
Всего: нет
спасибо 
переделал заполнение чайлдов в вид
Код

  // находим родителя
       XNode:= form1.VT.GetFirst;
        while XNode <> nil do
          begin
              Data:=form1.VT.GetNodeData(XNode);
              if Data^.id  = nodeparent then
                  begin
                   // добавляем ноду
                    XNode := form1.VT.AddChild(xnode);
                     data:= form1.vt.GetNodeData(xnode);
                     data^.name:=nodename;
                     data^.id:=nodeid;
                     data^.level:=y;
                     data^.parent:=nodeparent;
                     data^.edizm:=nodeedizm;
                     data^.sname:=nodesname;
                        break;
                  end else
           XNode:= form1.VT.GetNextSibling(XNode);
        end;
                            


сейчас работает хорошо.

возник сразу второй вопрос.
уже алгоритмический.
каким способом лучше заполнять VST из базы?
1. по уровням как делаю я ?
2. рекурсивно через запросы по полю parent ?

в первом случае минимизируются запросы к базе, но для каждой ноды выполняется проход по всему дереву в поиске ее родителя
во втором больше запросов к базе но дерево строиться без дополнительных проходов.
PM MAIL   Вверх
MetalFan
Дата 27.10.2011, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(bistropoke @  26.10.2011,  23:36 Найти цитируемый пост)
в первом случае минимизируются запросы к базе


хм, ну базы для того и были сделаны, чтобы хранить данные и быстро выполнять по ним запросы...




--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0731 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.