Einzelnen Beitrag anzeigen

HCB

Registriert seit: 12. Feb 2020
170 Beiträge
 
Delphi 12 Athens
 
#1

If ...and... and... and... then

  Alt 19. Mai 2024, 09:48
Delphi-Version: 12 Athens
Hallo,
bin mal wieder am grübeln: Es sind 4 checkboxen die wenn alle unchecked sind der Wert einer Variable auf 0 gesetzt werden soll. Ist jeweils z.B. nur eine oder zwei gecheckt erhält dieser einen anderen Wert. Beispiel: Nichts gecheckt = 0, nur Rabatt aktiv = 2, nur Provision = 4, Rabatt+Provision aktiv = 6 usw.
Jetzt wollte ich das mit diesem Statement abfragen:
Delphi-Quellcode:
if (cb_rabatt.Checked= false) and (cb_StockOn.Checked:= false) and (cb_provision.Checked= false) and (cb_Serials.Checked= false)
then DataMod.Q_sArtikelArtOptionen.Value:= 0;
Ich habe es schon mit oder ohne Klammern versucht, nach dem and nochmal if eingefügt. Komme nicht klar. Mal wird das and moniert das andere Mal nimmt Delphi die 0 nicht.
Kann man wohl gar nicht mehrere and beim ifThenElse Statement verwenden?
Über einen Lösungsvorschlag wäre ich sehr erfreut.

LG Harry
  Mit Zitat antworten Zitat