Recorrer TVirtualStringTree

[Casimiro Noteví]

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

[Angel.Matilla]

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

[Angel.Matilla]

Empezado por Casimiro Notevi

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

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

[Angel.Matilla]

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

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.

[Casimiro Noteví]

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

[Angel.Matilla]

Empezado por Casimiro Notevi

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

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