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;
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.