[lmpadron]

Hola amigos

Recientemente tube una dificultad y la pregunté aquí pero como indica nuestra guía de estilo ... solo una pregunta por hilo ... les relaciono mi siguiente pregunta en este hilo !!!

En el hilo anterior me explicaron como obtener el valor del Item seleccionado en un CheckListBox ... gracias !!!

Esto me permite saber que selecciona el usuario y asi guardarlo en un DBEdit, bien ahora el problema es el siguiente, cuando el usuario no esta insertando datos en la BD, o sea, cuando esta moviendose en la base de datos (ADOQuery1AfterScroll) quisiera que se visualizara en el CheckListBox cuando los campos estan seleccionado. Como este componente no es de tipo DB entonces lo que se me ocurre es atrapar los valores que estan en la BD en algun otro componente o variable (en este caso para tratar de hacerlo use un Combobox)

ComboBox1->Items->Clear();
ComboBox1->Items->Delimiter = '-';
ComboBox1->Items->DelimitedText = ADOQuery1->FieldByName("norma")->Text;

de esta menera en los Item del Combobox tengo los valores que fueron seleccionados por el usuario y almacenados en la base de datos, ahora lo que quiero hacer es comprobar cuales son de los que estoy listando en el CheckListBox para después ponerlos en Chequed

Este es el código que uso, aqui hago un ciclo pasando por el CheckListBox y al pasar por cada uno de sus Items paso con otro ciclo por todos los Items del ComboBox y con una condición compruebo (o al menos trato jejeje de comprobar) si son iguales iguales, para en caso de serlo entonces chequearlo.

Por supuesto no funciona !!!

                for(int i = 0; i < CheckListBox1->Count; i++)
                {
                  for(int o = 0; o < ComboBox1->Items->Count; o++)
                  {
                    if (ComboBox1->Items[o].Text == CheckListBox1->Items->Strings[i])
                      CheckListBox1->Checked[i] == true;
                  }
                }

Sin embargo me da un error terrible

---------------------------
Debugger Exception Notification
---------------------------
Project VB.exe raised exception class EAccessViolation with message 'Access violation at address 00000000. Read of address 00000000'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

En particular esto sucede en la instrucción IF.

Mis preguntas en concreto son... como puedo hacer que los Items que tengo en el Combo se seleccionen en el CheckListBox y si puedo usar algún otro tipo de variable para no poner un combo

Gracias de antemano