checklistbox chequear si esta seleccionado

[ecfisa]

Hola jonydread.

Código Delphi [-]
function LackSelection(CLB: TCheckListBox): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to CLB.Count - 1 do
    if not CLB.Checked[i] then Result := True;
end;

procedure Tmainform.BitBtn19Click(Sender: TObject);
...
begin
  if LackSelection(CheckListBox1) or (DBLookupComboBox5.KeyValue = NULL) then
    raise Exception.Create('Debe seleccionar todos los datos');
 ...
end;

Saludos

[Pericles]

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.

[jonydread]

exelente!!! muchas gracias nuevamente.