Delphi VirtualStringTree-¿Buscar duplicados?

duplicates virtualtreeview

Question

Sí, sé que publico muchas preguntas, pero eso se debe a que o bien necesito estar seguro de que estoy haciendo lo correcto, de lo que estoy haciendo mal, o si no tengo ni idea, y no puedo encontrar nada en la documentación. De todos modos,

Estoy tratando de verificar si hay nodos duplicados. Así es como me gustaría hacerlo:

Pasa a través de mis nodos y compara el texto de cada nodo (registro), pero si obtuve muchos nodos, ¿no sería demasiado tiempo y consumo de memoria? ¿Habría un mejor enfoque para esto?

¡Gracias! - Jeff.

EDITAR: Gracias a Deltics, ¡lo conseguí trabajando! En caso de que tengamos algunas personas con la misma pregunta, aquí hay un código de trabajo, usando 2 niveles de nodos en VST.

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;

No tengo miedo de compartir mi código, se lo debo a la comunidad. :)

Answer 1

Depende del punto en el que esté buscando duplicados.

Si se encuentra en el punto en el que está agregando elementos y está agregando todos los elementos al mismo tiempo (o si es posible / apropiado moverlo, haga clic en duplicado para ver en qué árbol está poblado, en lugar de trabajar con un árbol ya poblado) y mantener una lista de elementos ya agregados sobre la marcha podría ser la forma más sencilla, por ejemplo, suponiendo que está agregando elementos de una lista de cadenas simple (en cadenas en este código de ilustración):

  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

La versión de David funcionará. Si tiene D2010 o posterior, también puede usar una colección de conjuntos de DeHL, que usa un hash para verificar si hay duplicados y puede procesar su lista en el tiempo O (n).

Answer 3

Normalmente reunirías todas tus cadenas en una lista y luego las ordenarías. Luego puede recorrer y verificar los elementos adyacentes para ver la igualdad.

Eso es O (n log n) suponiendo un algoritmo de ordenamiento razonable en oposición al algoritmo ingenuo que es O (n ^ 2). Si no tienes muchos artículos, entonces los ingenuos funcionarán perfectamente bien.