suche einfache Lösung für Verzweigung

[mensch72]

da es ja um 6 Checkboxen geht, die in beliebiger "2er" Kombi was machen sollen, würde ich alle möglichen Varianten 2^6 binär zusammen stellen und dann per "case Selected" mir sauber und zentral das was gültig ist ausprogrammieren:

Delphi-Quellcode:

procedure TForm6.Timer1Timer(Sender: TObject);
var 
 Checked:Integer;
begin
  Checked:=0;
  if (checkbox1.Checked) then Inc(Checked,$01);
  if (checkbox2.Checked) then Inc(Checked,$02);
  if (checkbox3.Checked) then Inc(Checked,$04);
  if (checkbox4.Checked) then Inc(Checked,$08);
  if (checkbox5.Checked) then Inc(Checked,$10);
  if (checkbox6.Checked) then Inc(Checked,$20);

  case Checked of
    $03: Szenario12;
    $05: Szenario13;
    $09: Szenario14;
    $11: Szenario15;
    $21: Szenario16;

    $06: Szenario23;
    $0a: Szenario24;
    $12: Szenario25;
    $22: Szenario26;

    $0c: Szenario34;
    $14: Szenario35;
    $24: Szenario36; 

    $18: Szenario45;
    $28: Szenario46;

    $30: Szenario56;

    else InvalidPairChecked;
  end;
end;

Wenn man das mit der Zusammenfassung per "binärem Oder" als Trick verstanden hat, ist es total simpel und übertrifft alle anderen Varianten bis 64 Checkboxen an Übersichtlichkeit und schneller Erweiterbarkeit