MM求救4

Question

 if APNode.Values[idxQdLb] = const_QD_TYPE  then
    begin
      l_Node := QdTree.AddNode(nil, APNode, nil, tlamInsert);
      l_Node2 := l_Node;
      l_Node1 := l_Node2.getNextSibling;
      l_Node1.MoveTo(l_Node2, tlamInsert);
    end
    else
      l_Node := APNode.AddChild;
代码如上，能帮我看下 l_Node2 := l_Node;
      l_Node1 := l_Node2.getNextSibling;
      l_Node1.MoveTo(l_Node2, tlamInsert); l_Node2 := l_Node;
      l_Node1 := l_Node2.getNextSibling;
      l_Node1.MoveTo(l_Node2, tlamInsert);
 这里有问题吗？

Answer 1

如果当前焦点在清单上（清单是我定义NODE的类别），就让它在焦点清单下插入一空白行，并将焦点下移到新的空白行

Answer 2

NodeSelected := Selected;
NodeParent := NodeSelected.Parent;
NodeSibling := NodeSelected.getNextSibling;if NodeSibling <> Nil then begin
  l_Node := Insert(NodeSibling , NewText);
end else begin
  l_Node := AddChild(NodeParent , NewText);
end;
select(l_Node , []);