Ver Mensaje Individual
  #3  
Antiguo 04-10-2013
Avatar de Pericles
Pericles Pericles is offline
Miembro
NULL
 
Registrado: sep 2013
Ubicación: Buenos Aires, Argentina
Posts: 24
Reputación: 0
Pericles Va por buen camino
Hola, como esta planteado deben estar seleccionados todos los checks, creo que en ese caso tendría mas sentido otro componente.
Si la idea es verificar si hay almenos uno seleccionado (junto con el la condicion del BdLoockUpComboBox) yo separaria la evaluacion de ambas condiciones.
(de paso se recorre solo una vez y ya se evalua si esta alguno seleccionado o no registrandose alli los datos elegidos).
Espero haberme explicado bien!

Saludos
Nicolas Perichon


Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);

var
  i:integer;
  sel: string;
  vacio, vacio2: boolean;
begin

//registro opcion 1 y seleccionados 
  vacio:= true;
    for i := 0 to CheckListBox1.Count - 1 do
             begin

                  if checklistbox1.Checked[i] <> false then
                     begin
                        //acumulo texto para el ejemplo uso solo string
                        sel := sel + ' '+ CheckListBox1.Items.Strings[i];

                        //hay alguno seleccionado!
                        vacio := false;
                   end;
     end;

//registro  opcion 2
// vacio2:= dblookupcombobox5.KeyValue=NULL;
vacio2:= false;  //simulo que no esta vacio ya que no tengo el componente en el ejemplo


//Evaluo las dos condiciones 

if not(vacio) and not(vacio2)  then 
                                                showmessage('Ok, Seleccionados: '+sel) else
                                                showmessage('Debe seleccionar todos los datos');

end;

end.
Responder Con Cita