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

[jaenicke]

Zitat von HCB:

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;

Würdest du so reden? Wenn "das Wetter ist schön" nicht wahr ist, dann bleibe ich zu Hause.

Viel einfacher:

Delphi-Quellcode:

if not cb_rabatt.Checked and not cb_StockOn.Checked and not cb_provision.Checked and not cb_Serials.Checked then
  DataMod.Q_sArtikelArtOptionen.Value := 0;

Zitat von HCB:

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.

Das ist allerdings etwas ganz anderes als dein Code macht.

Deine Beschreibung ist:

Delphi-Quellcode:

  Value := 0;
  if cb_rabatt.Checked then
     Value := Value + 2;
  if cb_StockOn.Checked then
     Value := Value + 4;
  if cb_provision.Checked then
     Value := Value + 8;
  if cb_Serials.Checked then
     Value := Value + 16;
  DataMod.Q_sArtikelArtOptionen.Value := Value;

Oder du machst es wie DeddyH geschrieben hat.