Foros Club Delphi - Recorrer TVirtualStringTree

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Recorrer TVirtualStringTree (https://www.clubdelphi.com/foros/showthread.php?t=94960)

Recorrer TVirtualStringTree

Buenas a todos. Ya sé que soy un poco pesado, pero es que no encuentro el camino. Tengo este TVirtualStringTree:

y quiero comprobar los nodos seleccionados. Para ello estoy usando este código:

Código:

void __fastcall TfSelDocs::AlbaranesChecked(TBaseVirtualTree *Sender, PVirtualNode Node)

{

     int nHay = 0;

     slEmisor->Clear();



     if (Albaranes->CheckState[Node] == csCheckedNormal || Albaranes->CheckState[Node] == csCheckedPressed)

     {

          Nodo1 = Albaranes->GetFirst();

          Nodo2 = NULL;



          while (Nodo1 != NULL && Nodo2 == NULL)

          {

               if ((Albaranes->CheckState[Nodo1] == csCheckedNormal || Albaranes->CheckState[Nodo1] == csCheckedPressed) && !Albaranes->HasChildren[Nodo1])

               {

                    nHay ++;

                    Nodo2 = Nodo1;

               }

               Nodo1 = Albaranes->GetNext(Nodo1);

          }

     }

}

pero me he dado cuenta que de esta forma en un caso como el de la imagen siempre me cuenta un nodo; cuando hay dos marcados sólo la primera vez que recorre el bucle entra en él. ¿Qué estoy haciendo mal?

Puedes recorrerlos con los métodos: GetFirstChecked y GetNextChecked.

Gracias. Probaré y ya os diré como ha ido.

Cita:

Empezado por Casimiro Notevi (Mensaje 539216)

Puedes recorrerlos con los métodos: GetFirstChecked y GetNextChecked.

¡Mi gozo en un pozo! En C++ no existen esos métodos.

¡Solucionado! Estaba planteando fatal la lógica del proceso. Lo he dejado así:

Código:

void __fastcall TfSelDocs::AlbaranesChecked(TBaseVirtualTree *Sender, PVirtualNode Node)

{

     int nHay = 0;

     slEmisor->Clear();



     Nodo1 = Albaranes->GetFirst();



     while (Nodo1 != NULL)

     {

          if ((Albaranes->CheckState[Nodo1] == csCheckedNormal || Albaranes->CheckState[Nodo1] == csCheckedPressed) && !Albaranes->HasChildren[Nodo1])

               nHay ++;

          Nodo1 = Albaranes->GetNext(Nodo1);

     }

}

y funciona a la perfección.

Es curioso que sean distintos para C++ y Delphi.

Cita:

Empezado por Casimiro Notevi (Mensaje 539221)

Es curioso que sean distintos para C++ y Delphi.

Sí, siempre me ha llamado la atención.