Работа с указателями

[yaapelsinko]

Делаю поиск по TreeView заданного узла.

Вот такой:

procedure TMKB10Form.SearchCurrent();
var
  node: ^TTreeNode;
  data: PData;
{
PData = ^Data;
Data = record
   code: string;
end;
}
begin
  if (CurrentValue <> null) and (CurrentValue <> '')
    then
      begin
        node := pointer(TreeView.TopItem);

        repeat
          data := node^.Data;

          if (data^.code = copy(CurrentValue, 0, length(data^.code)))
            then
              begin
                if (node^.Count > 0)
                  then
                    begin
                      node^.Expand(false);
                      node := pointer(node^.getFirstChild);
                    end
                  else
                    begin
                      node^.Selected := true;
                      break;
                    end;
              end
             else
               begin
                 node := pointer(node^.getNextSibling)
               end;
        until (node = nil);
      end;

  dispose(node);
end;

В дату каждой ноды везде записываются переменные типа PData (они там точно есть).

Насколько я понимаю указатели, node := pointer(TreeView.TopItem) и т.п. дадут мне ссылку на нужную ноду дерева, к данным которой я смогу обратиться через node^.
Значит, временный указатель data надо присваивать как data := node^.Data. И даже присвоение происходит - там появляется адрес.

Но, когда по указателю иду в data^.Code, то там инаксессибль валъю.
А залезши по указателю, например, в node^.Text, получаю "'SV‹ò‹Ø‹C'#4'è¾'#$B#0#0'€{$'#0#$F' …'#0#0#0'‹Æ‹'#$15'xÎC'#0'è‹'#$18'ü ÿ„Àt‹V'#8'‹Ãèuðÿÿ‹V'#$C'‹Ãèÿðÿÿ‹V' #$14'‹Ãè•òÿÿ‹V'#$18'‹Ãèãòÿÿ‹V ‹Ãèóÿÿ‹V'#$1C'‹Ãè'óÿÿ‹ÆèT÷ÿÿ‹Ð‹Ãè+ ÷ÿÿ‹Æè”öÿÿ‹Ð‹Ãè“öÿÿ‹Æè\öÿÿ‹Ð‹Ãè[öÿÿ‹ÆèÄöÿÿ‹Ð‹Ãè#÷ÿÿ^[Ë֋Ã.................и.т.д.".

То есть, явно указатель куда-то не туда.

ЧЯДНТ?

[Аватар]

А зачем так? Что мешает работать с Node как с TTreeNode без заморочек?

[yaapelsinko]

Да это я с аксес виолейшынами воевал, как обычно. Это вот последний вариант алгоритма, просто решил сразу менять и обход, и способ доступа к переменным, чтобы точно нчего лишнего не создавать, нигде ничё не оставалось чтоб.

Ну вот, поменял ^TreeNode на TreeNode - теперь ищет и кажет. А ещё у меня дерево с динамической подгрузкой данных ветки при её развороте, йоу. \m m/

Но блин так же тоже должно работать?

[yaapelsinko]

Да, кстати, а вот условие выхода из цикла - он выполнится вообще? Когда дойду до последнего сиблинга, то некстсиблинг будет нил, или первый?