VPF::Поиск в VirtualTreeView - Форум программистов

MacTep

Дата 15.8.2012, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Осуществляю поиск узла дерева VirtualTreeView следующей процедурой:

Код


// поиск узла дерева
function TfrmTrainingList.FindNode(ANode: PVirtualNode; const APattern: integer): PVirtualNode;
var NextNode: PVirtualNode;
    DataNode: PTrainingNode;
begin
  Result := nil;
  NextNode := ANode.FirstChild;
  if Assigned(NextNode) then
  begin
    repeat
      DataNode := vt.GetNodeData(NextNode);
      if Assigned(DataNode) then
        if DataNode^.training_id = APattern then
        begin
          Result := NextNode;
          exit;
        end;
      // Ищем в дочерних ветках
      Result := FindNode(NextNode, APattern);
      if Result = nil then
        NextNode := NextNode.NextSibling
      else
      begin
        NextNode := nil;
        break;
      end;
    until NextNode = nil;
  end;
end;

Все хорошо работает, если дерево без дочерних элементов, т.е. дерево обычный список.
Если же в дереве есть дочерние элементы, а в них есть еще дочерние элементы, то нужный элемент не находится. Возвращается nil.

Помогите исправить ошибку.

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

XperT

Дата 15.8.2012, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 2
Всего: 4

Как то так (не проверял):

Код


function TfrmTrainingList.FindNode(const APattern: integer): PVirtualNode;
var 
    ANode: PVirtualNode;
    DataNode: PTrainingNode;
begin
  Result := nil;
  ANode := vt.GetFirst();
  while ANode <> nil do
  begin
    DataNode := vt.GetNodeData(ANode);
    if (Assigned(DataNode)) and (DataNode^.training_id = APattern) then
    begin
      Result := ANode;
      exit;
    end;

    ANode := vt.GetNext(ANode);
  end;
end;

Это сообщение отредактировал(а) XperT - 15.8.2012, 17:17

kami

Дата 15.8.2012, 18:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Если нодов более чем много, и/или нужно действительно организовать поиск только в дочерних по отношению к заданному нодах, то так:

Код


Result:=nil;
NextNode:=vt.GetNextSibling(ANode); // это следующий нод того же уровня, что и стартовый. Соответственно, поиск должен вестись до него (исключительно)
ANode:=vt.GetFirstChild(ANode);
While Assigned(ANode) and (ANode<>NextNode) do
  begin
    NodeData:=vt.GetNodeData(ANode);
    if ......... then
      begin
        Result:=ANode;
        Break;
      end;
    ANode:=vt.GetNext(ANode);
  end;

MacTep

Дата 15.8.2012, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Спасибо! Оба ответа помогли внести ясность в мои мысли по этому вопросу smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »