Delphi VirtualStringTree - 检查重复项？

Question

是的，我知道我发布了很多问题，但那是因为我要么需要保证我做对了，我做错了什么，或者我完全无能为力，并且在文档中找不到任何内容。无论如何，

我正在尝试检查重复的节点。我想要这样做：

循环遍历我的节点，并比较每个节点的文本（记录），但如果我有很多节点，那不是太耗时和消耗内存吗？对此是否有更好的方法？

谢谢！ - 杰夫。

编辑：感谢 Deltics，我成功了！如果有人有同样的问题，这里有一些工作代码，在 VST 中使用 2 级节点！

Procedure UncheckDuplicates;
Var
 ParentNode,ChildNode : PVirtualNode;
 I,J                  : Integer;
 SL                   : TStringList;
 SkypeID              : String;
Begin

   SL := TStringlist.Create;
   try
        ParentNode                      := frmMain.vtSkype.GetFirst;

           for I := 0 to frmMain.vtSkype.RootNodeCount - 1 do
             begin
               ChildNode                := ParentNode.FirstChild;
                 for J := 0 to ParentNode.ChildCount - 1 do
                     begin
                        if NodeIsChecked(ChildNode) then
                          begin
                            SkypeID             := GetData(ChildNode).SkypeID;
                              if SL.IndexOf(SkypeID) <> -1 then
                                begin
                                  ChildNode.CheckState          := csUncheckedNormal;
                                end
                                else 
                                begin
                                  SL.Add(SkypeID);
                                end;
                          end;                          
                     ChildNode                := ChildNode.NextSibling;   
                     end;


               ParentNode               := ParentNode.NextSibling;
             end;


   finally
     SL.Free;
   end;

frmMain.vtSkype.Refresh;


End;

我不害怕分享我的代码，我对社区负有责任。 :)

Answer 1

这取决于您在什么时候检查重复项。

如果是在您添加项目并且同时添加所有项目时，（或者如果可以/适当地将重复检查移动到填充树视图的点，而不是使用已经填充的树）然后维护已添加项目的列表可能是最简单的方法，例如假设您从简单的字符串列表中添加项目（在此插图代码中的字符串中）：

  alreadyAdded := TStringList.Create;
  try
    alreadyAdded.Sorted := TRUE;  // Sorting ensures an efficient binary lookup for IndexOf()...

    for i := 0 to Pred(strings.count) do
    begin
      if alreadyAdded.IndexOf(strings[i]) <> -1 then
        CONTINUE;

      AddNode(strings[i]);
      alreadyAdded.Add(strings[i]);
    end;
  finally
    alreadyAdded.Free;
  end;

Answer 2

通常，您会将所有字符串收集到一个列表中，然后对其进行排序。然后，您可以循环并检查相邻项目是否相等。

假设合理的排序算法是 O(n log n)，而不是朴素算法，即 O(n^2)。如果你没有大量的物品，那么天真就可以完美地工作。

Answer 3

大卫的版本可以工作。如果您有 D2010 或更高版本，您还可以使用 DeHL 中的 Set 集合，它使用哈希来检查重复项，并可以在 O(n) 时间内处理您的列表。