2 respuestas en este tema

[Caral]

Hola a todos
estoy tratando de hacer un bucle y por supuesto no me sale
explico un poco:
Tengo este codigo:
 

 

delphi

// a/b
 If checkbox1.Checked = true then
 begin
 Adoquery3.Close;
 Adoquery3.SQL.Text:=' SELECT numeros.[Num], numeros.['+a.Text+'], numeros.[pos]'+
                     ' FROM numeros where num = :n and pos = :p1 ';
 Adoquery3.Parameters[0].Value:= Edit1.Text;
 Adoquery3.Parameters[1].Value:= b.Text;
 Adoquery3.Open;
 ListBox2.Items.Append(Adoquery3.Fields[1].AsString);
 form2.ListBox1.Items.Append('A/B= '+Adoquery3.Fields[1].AsString);
 Numeros('A/B',Adoquery3.Fields[1].asinteger);
 end;

 

Esto se repite una 150 veces con diferentes checkbox y letras.
Me gustaria poder hacer un bucle que indicara si el check esta enable pero el problema es que cada sentencia sql cambia dependiendo de las letras.
 
No me acuerdo como poner las etiquetas , lo siento,
Si teneis alguna sugerencia os lo agradezco, luego de este tengo otro casi igual
saludos

[ELKurgan]

Se me ocurre que el primer bucle lo podrías hacer con una búsqueda por los componentes del formulario (si es que este es el caso), algo así como: 
 
 

delphi

var
  miChekBox: TChekBox;
 
for i := 0 to ComponentCount -1 do
  if (Components[i] is TCheckBox) then
  begin
    miChekBox := TCheckBox([Components[i]]);
    if (miChekBox.Checked]) then
    begin
      ….
      ….
    end;
  end;
  …
end;

 
    
No se es esto lo que buscabas o si te orienta un poco. Además, no tengo ahora el Delphi delante, por lo que lo he hecho de cabeza, asi que no se si estará bien o tendrá fallos
 
 
Un saludo

[Caral]

Hola

Gracias amigo

Saludos