Ir al contenido


Foto

Problema con bucle


  • Por favor identifícate para responder
2 respuestas en este tema

#1 Caral

Caral

    Advanced Member

  • Administrador
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 05 junio 2020 - 07:08

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

 


delphi
  1. // a/b
  2.  If checkbox1.Checked = true then
  3.  begin
  4.  Adoquery3.Close;
  5.  Adoquery3.SQL.Text:=' SELECT numeros.[Num], numeros.['+a.Text+'], numeros.[pos]'+
  6.                      ' FROM numeros where num = :n and pos = :p1 ';
  7.  Adoquery3.Parameters[0].Value:= Edit1.Text;
  8.  Adoquery3.Parameters[1].Value:= b.Text;
  9.  Adoquery3.Open;
  10.  ListBox2.Items.Append(Adoquery3.Fields[1].AsString);
  11.  form2.ListBox1.Items.Append('A/B= '+Adoquery3.Fields[1].AsString);
  12.  Numeros('A/B',Adoquery3.Fields[1].asinteger);
  13.  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


  • 0

#2 ELKurgan

ELKurgan

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 560 mensajes
  • LocationEspaña

Escrito 08 junio 2020 - 03:30

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
  1. var
  2.   miChekBox: TChekBox;
  3.  
  4. for i := 0 to ComponentCount -1 do
  5.   if (Components[i] is TCheckBox) then
  6.   begin
  7.     miChekBox := TCheckBox([Components[i]]);
  8.     if (miChekBox.Checked]) then
  9.     begin
  10.       ….
  11.       ….
  12.     end;
  13.   end;
  14.   …
  15. 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


  • 0

#3 Caral

Caral

    Advanced Member

  • Administrador
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 junio 2020 - 12:20

Hola

Gracias amigo

Saludos


  • 0