Una pequeña modificación:
En donde dice
Check := Components[i] as TCheckBox;
sería mejor poner
Check := TCheckBox(Components[i]);
El operador as implícitamente hace uso del operador is lo cual es innecesario porque ya se verificó antes.
Y una observación (a ver si repitiendo causa algún efecto): este código de maeyanes es mucho más recomendable que el uso de FindComponent ya que se hace el recorrido de los componentes del formulario una sólo vez y no multiplicado por 100.
// Saludos
|