cambiar Chequed de Item determinado en CheckListBox

[ecfisa]

Hola Impadron.

Si no te entendí mál, podrías hacer:

...
{
TCheckListBox *CLB = static_cast<TCheckListBox*>(CheckListBox1);
TComboBox *CB = static_cast<TComboBox*>(ComboBox1);
int ix;

 for(int i = 0; i < CB->Items->Count; i++){
   ix = CLB->Items->IndexOf(CB->Items->Strings[i]);
   CLB->Checked[ix] = ix != -1;
 }
}

Un saludo.

[lmpadron]

Hola

la solución del amigo ecfisa dio este error

---------------------------
Debugger Exception Notification
---------------------------
Project VB.exe raised exception class EListError with message 'List index out of bounds (-1)'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

el erro no debía estar en el código así que estaba en el momento en que se ejecutaba el código así que agregue un IF para que me comprobara si estaba activa la forma previendo que se ejecutara al momento de la creación de los componentes y ... solucionado !!!

El combo me carga el primer item en blanco al parecer el delimitador al ser pasado recoje el primer elemento y lo pasa en blanco (nulo) así que lo elimino con esta instrucción.

ComboBox1->Items->Delete(0);

les dejo el código de la forma en que quedo

if (Form5->Active == true)
        {
                int c;
                if (DBEdit1->Text != "")
                {

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

                        TCheckListBox *CLB = static_cast<TCheckListBox*>(CheckListBox1);
                        TComboBox *CB = static_cast<TComboBox*>(ComboBox1);
                        int ix;

                        for(int i = 0; i < CB->Items->Count; i++)
                        {
                                ix = CLB->Items->IndexOf(CB->Items->Strings[i]);
                                CLB->Checked[ix] = ix != -1;
                        }
                }
        }

Gracias por la ayuda

[ecfisa]

Hola Impadron.

Realmente no había entendido bién lo que estabas buscando hacer, ahora creo que sí...
A ver si estoy en lo cierto, a medida que te desplazas por la tabla los items del CheckListBox deben poner su propiedad Checked a true o false según existan o nó en el campo "norma".

De ser así se puede simplificar a una sola función:

void __fastcall TForm1::ADOQuery1AfterScroll(TDataSet *DataSet)
{
TStringList *TS= new TStringList;
  __try {
    TS->Delimiter = '-';
    TS->DelimitedText = ADOQuery1->FieldByName("norma")->Text;
    for(int i = 0; i < CheckListBox1->Count; i++){
      CheckListBox1->Checked[i] = TS->IndexOf(CheckListBox1->Items->Strings[i]) != -1;
    }
  }
  __finally {
    delete(TS);
  }
}

Saludos.