Ayuda con TCheckListBox
 

Tengo un problema con un TCheckListBox, este tiene 12 opciones, y me gustaria saber cuantas de estas opciones estan activadas, lo intento asi:
for i:= 0 to Juegos.Items.Count - 1 do
if (Juegos.Selected[i]= true) then
contador := contador + 1;

Pero no funciona, ¿Me podrias decir como lo tengo que hacer?

Muchas gracias.

Hola.

No tienes que usar el método Selected, sino Checked.

Por cierto, si utilizas las etiquetas de código, la presentación del mensaje mejora en legibilidad.

Código Delphi [-]
  contador:=0;
  for i:= 0 to Juegos.Items.Count - 1 do begin
     if (Juegos.Checked[i]) then 
        contador :=contador + 1;
  end;

Saludos.

No es lo mismo que un item esté seleccionado a que su casilla lo esté. Usa el arreglo Checked en lugra de Selected.

// Saludos

Con permiso de Román.... :D:D:D

No olvides que debes poner el código en el evento OnClickCheck, no en el OnClick :p

Un saludo :o.

muchas gracias por la ayuda y perdonar por lo de las etiquetas de codigo.