Tema: checkbox
Ver Mensaje Individual
  #6  
Antiguo 07-04-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola Lupita, yo utilizaría un ChekListBox y en vez de recorrer todos los controles del formulario, recorres directamente tu CheckListBox como si fuera un arreglo. Puedes añadir los CheckBox que quieras en su propiedad Items del ChekListBox.

Código Delphi [-]
var
 j:Integer;
begin
  for j:=0 to CheckListBox1.Items.Count-1 do
   begin
     insert into PERM (P_CONSECUTIVO,MODULO,BOTON,checked)
     values(:P_CONSECUTIVO,:MODULO,:BOTON,:checked)
     ParamByName('P_CONSECUTIVO').asinteger := inc(i);
     ParamByName('MODULO').asstring := menu ;
     ParamByName('BOTON').asstring := CheckListBox1.Items[i];
     ParamByName('checked').asinteger := ifThen(CheckListBox1.Checked[j],0,1)
   end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita