Ayuda con TCheckListBox

[astur_racing]

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.

[santana]

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.

[roman]

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

// Saludos

[santana]

Con permiso de Román....

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

Un saludo .

[astur_racing]

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