Concatenar CheckBox

[roman]

Podrías asignar a cada CheckBox el número que le corresponda en su propiedad Tag (esto en el inspector de objetos) y cambiar la condición a:

Código Delphi [-]
if (Components[i] is TCheckBox) and (Components[i].Tag in [16..24]) then

// Saludos

[Chente(rMan)]

Muchas gracias lo voy a intentar.



Saludos.

Vicente López.

[Ade]

Hola a todos, tenia el mismo problema, no conseguia limpiar los checkbox que estaban en un GroupBox con un bucle, y al ver este hilo halle la solucion, dejo mi funcion por si alguien la necesitara:

Código Delphi [-]
procedure TProveedores.LimpiarCheckbox(OpcionesGroupBox: TGroupBox);
var
   I:integer;
   ChildControl: TControl;
begin
     for I:=0 to  OpcionesGroupBox.ControlCount-1 do
          begin
          ChildControl := OpcionesGroupBox.Controls[i];
           if ChildControl is TCheckBox then
             //cambio la propiedas checked del tcheckbox
             TCheckBox(ChildControl).checked:=false;
     end;
end;

si alguien ve algun error o mejoria por favor me lo comente
gracias

[jachguate]

Puede abreviarse de este modo, ya que la variable ChildControl está de mas:

Código Delphi [-]
procedure TProveedores.LimpiarCheckbox(OpcionesGroupBox: TGroupBox);
var
  I:integer;
begin
  for I := 0 to OpcionesGroupBox.ControlCount - 1 do
    if OpcionesGroupBox.Controls[i] is TCheckBox then
      TCheckBox(OpcionesGroupBox.Controls[i]).Checked := False;
end;

Hasta luego.

[Ade]

gracias por la anotacion, hecho esto ya se como hacer de forma similar si estan checked los checkbox y en ese caso pasarlos al query.