Status von 12 DBCheckboxen abspeichern in einer Datenbank

[DeddyH]

Delphi-Quellcode:

type
  TWorkMonth = (wmJanuary, wmFebruary, wmMarch, wmApril, wmMay, wmJune, wmJuly,
    wmAugust, wmSeptember, wmOctober, wmNovember, wmDecember);

function WorkedThatMonth(aMonth: TWorkMonth; aBitmask: word): Boolean;
begin
  Result := aBitmask and (1 shl Ord(aMonth)) <> 0;
end;

procedure TFormDings.ButtonBumsClick(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 12 do
    TCheckBox(FindComponent('Checkbox' + IntToStr(i))).Checked :=
      WorkedThatMonth(TWorkMonth(i - 1), 10);
end;