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

[TomyN]

Ich würde Konstanten definiern und jaenikes Vorschlag verwenden.

Delphi-Quellcode:

Const 
  O_RABATT = $01;
  O_STOCKON = $02;
  O_PROVISION = $04;
  O_SERIALS   = $08;

Procedure
  Value := 0;
  if cb_rabatt.Checked then
     Value := Value OR O_RABATT; //Hier ginge auch value := O_RABATT;
  if cb_StockOn.Checked then
     Value := Value OR O_STOCKON;
  if cb_provision.Checked then
     Value := Value OR O_PROVISION;
  if cb_Serials.Checked then
     Value := Value OR O_SERIALS;
  DataMod.Q_sArtikelArtOptionen.Value := Value;
end;