Duda con Checkbox

[keyboy]

Una forma sencilla de pasar los valores podría ser colocando todos los CheckBox en un panel, CheckBoxes, que no contenga nada más. La rutina sería así:

Código Delphi [-]
var
  I: Integer;

begin
  for I := 0 to CheckBoxes.ControlCount - 1 do
    (CheckBoxes.Controls[i] as TCheckBox).Checked := (Flags and (1 shl I) <> 0);
end;

donde Flags sería el valor leído de la base de datos.

Bye