Inhaltsabfrage in Delphi 10.2

[iTzElKay]

Code:

niSpielerNr := 1;
  onePlayerSBtn.Enabled := false;
  twoPlayerSBtn.Enabled := false;
  startSBtn.Enabled     := false;
  newGameSBtn.Enabled   := true;

  wuerfel1BBtn.Enabled  := true;
  wuerfel2BBtn.Enabled  := true;
  wuerfel3BBtn.Enabled  := true;
  wuerfel4BBtn.Enabled  := true;
  wuerfel5BBtn.Enabled  := true;
  wuerfel6BBtn.Enabled  := true;
  wuerfel7BBtn.Enabled  := true;

  wuerfel1SBtn.Enabled  := true;
  wuerfel2SBtn.Enabled  := true;
  wuerfel3SBtn.Enabled  := true;
  wuerfel4SBtn.Enabled  := true;
  wuerfel5SBtn.Enabled  := true;
  wuerfel6SBtn.Enabled  := true;
  wuerfel7SBtn.Enabled  := true;

  wuerfelnBBtn.Enabled  := true;
  enableSpieler1( true );
  wuerfelnBBtn.SetFocus;

Code:

procedure TKnuffel.enableSpieler1(lbEinAus: Boolean);
begin

  player1CB1er.Enabled          := lbEinAus;
  player1CB2er.Enabled          := lbEinAus;
  player1CB3er.Enabled          := lbEinAus;
  player1CB4er.Enabled          := lbEinAus;
  player1CB5er.Enabled          := lbEinAus;
  player1CB6er.Enabled          := lbEinAus;

  player1CB3Pasch.Enabled       := lbEinAus;
  player1CB4Pasch.Enabled       := lbEinAus;
  player1CB5Pasch.Enabled       := lbEinAus;
  player1CB6Pasch.Enabled       := lbEinAus;
  player1CB2Doppel.Enabled      := lbEinAus;
  player1CB3Doppel.Enabled      := lbEinAus;
  player1CBTrippel.Enabled      := lbEinAus;
  player1CBKFH.Enabled          := lbEinAus;
  player1CBGFH.Enabled          := lbEinAus;
  player1CBMStr.Enabled         := lbEinAus;
  player1CBKStr.Enabled         := lbEinAus;
  player1CBGStr.Enabled         := lbEinAus;
  player1CBKnuffel.Enabled      := lbEinAus;
  player1CBChance.Enabled       := lbEinAus;

  wert1Label1er.Enabled         := lbEinAus;
  wert1Label2er.Enabled         := lbEinAus;
  wert1Label3er.Enabled         := lbEinAus;
  wert1Label4er.Enabled         := lbEinAus;
  wert1Label5er.Enabled         := lbEinAus;
  wert1Label6er.Enabled         := lbEinAus;

  wert1LabelTotal.Enabled       := lbEinAus;
  wert1LabelBonus.Enabled       := lbEinAus;
  wert1LabelGOO.Enabled         := lbEinAus;

  total1Label.Enabled           := lbEinAus;
  bonus1Label.Enabled           := lbEinAus;
  totallyAbove1Label.Enabled    := lbEinAus;

  wert1Label3Pasch.Enabled       := lbEinAus;
  wert1Label4Pasch.Enabled       := lbEinAus;
  wert1Label5Pasch.Enabled       := lbEinAus;
  wert1Label6Pasch.Enabled       := lbEinAus;
  wert1Label2Doppel.Enabled      := lbEinAus;
  wert1Label3Doppel.Enabled      := lbEinAus;
  wert1LabelTrippel.Enabled      := lbEinAus;
  wert1LabelKFH.Enabled          := lbEinAus;
  wert1LabelGFH.Enabled          := lbEinAus;
  wert1LabelMStr.Enabled         := lbEinAus;
  wert1LabelKStr.Enabled         := lbEinAus;
  wert1LabelGStr.Enabled         := lbEinAus;
  wert1LabelKnuffel.Enabled      := lbEinAus;
  wert1LabelChance.Enabled       := lbEinAus;

  wert1LabelGU.Enabled           := lbEinAus;
  wert1LabelGOU.Enabled          := lbEinAus;
  wert1LabelInsgesamt.Enabled    := lbEinAus;

  totallyBelow1Label.Enabled           := lbEinAus;
  totallyAbove3Label.Enabled           := lbEinAus;
  totallyCombined1Label.Enabled        := lbEinAus;
end;