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;

[Benmik]

Und welche Vorteile hat so ein ausgedehnter Code gegenüber einem schlichten Zweizeiler, der augenblicklich eingängig ist?

[Uwe Raabe]

Zitat von Benmik:

Und welche Vorteile hat so ein ausgedehnter Code gegenüber einem schlichten Zweizeiler, der augenblicklich eingängig ist?

Na ja, er setzt den gewünschten Wert gleich für alle Kombinationen richtig, während der Zweizeiler lediglich den 0-Fall abdeckt.

[Benmik]

Ja, stimmt, hatte aber den Eindruck, dass er speziell nur nach dem Fall gefragt hat, dass gar keine Checkbox angekreuzt ist. Möglicherweise hat er für die anderen Fälle bereits den entsprechenden Verarbeitungscode. Na ja, vielleicht klärt er uns noch auf.

[jaenicke]

Zitat von Benmik:

Ja, stimmt, hatte aber den Eindruck, dass er speziell nur nach dem Fall gefragt hat, dass gar keine Checkbox angekreuzt ist. Möglicherweise hat er für die anderen Fälle bereits den entsprechenden Verarbeitungscode. Na ja, vielleicht klärt er uns noch auf.

Ich hatte die Vermutung, dass er das nach dem gleichen Prinzip machen wollte.