Determiner "Valeur1 in valeurs" lorsque Valeur1 et Valeurs sont de type Word ...

Bonjour!

voilà, j' ai un souci d' écriture ...

A l' image de ce que l' on fait avec une variable de type "Set of":
if goColumnResize in DBGrid1.Options
then beep;

Je voudrais tester si "Valeur1" (de type Word) est comprise dans "Valeurs" (de type Word):
Disons que j' ai 4 constantes:
Valeur1 = 1;
Valeur2 = 2;
Valeur3 = 4;
Valeur4 = 8;
et que j' ai "Valeurs" représentant donc la somme d' un regroupement de Valeur1 à Valeur4.
Disons que Valeurs = 5:
Valeurs est donc représenté par Valeur3 + Valeur1.

Je voudrais donc écrire quelque chose dans ce genre :
if valeur3 in valeurs then Beep;

Je voudrais savoir s' il existe quelques chose pour faire cela ^^

Merci de votre aide,
Mauricio

Salut Cirec,

c' est exactement ça! J' ai déjà vu ça mais je n' arrivais pas à me rappeler, merci beaucoup!!!
J' allais partir sur une fonction mais là, c' est beaucoup mieux

Regarde mes yeux pleins de reconnaissance:
A+

De façon générale, on peut voir un nombre comme un vecteur binaire, où chaque bit représente une information particulière. Une propriété intéressante du système binaire fait qu'il est très simple de décider si tel ou tel nombre est contenu dans tel autre nombre sous la loi d'addition.

Donc oui, de façon générale, si B and A <> 0, alors A est compris dans B.

Cordialement, Bacterius !

B and A = A excuse ... B and A <> 0 fonctionne quand on vérifie un seul bit

Cordialement, Bacterius !

Merci Bacterius pour ces précisions ^^
A+

en fait ça fonctionne pour les deux.

la plupart des Dev utilisent "B and A > 0" mais je trouve que c'est plus parlant quand on relis un code :"if (B and A) = A then"
que "if (B and A) <> 0 then"


sinon avec cette méthode on peut (par exemple) stocker 32 valeurs Boolean dans un entier non signé.
Les composants sont "Tagés" de 0 à 31 (Maximum):

---

function Tfrm_Main.GetCheckedComponents: Cardinal;
var
  Idx: Integer;
begin
  Result := 0;
  for Idx := 0 to ComponentCount - 1 do
    if Components[Idx] is TCheckBox then
    begin
      with TCheckBox(Components[Idx]) do
        if Checked then
          Result := Result or (1 shl Tag);
    end
    else if Components[Idx] is TRadioButton then
    begin
      with TRadioButton(Components[Idx]) do
        if Checked then
          Result := Result or (1 shl Tag);
    end;
end;

// la récupération des Valeurs se fait comme ceci:
procedure Tfrm_Main.SetCheckedComponents(Value: Cardinal);
var
  Idx: Integer;
begin
  for Idx := 0 to ComponentCount - 1 do
    if Components[Idx] is TCheckBox then
    begin
      with TCheckBox(Components[Idx]) do
        Checked := (Value and (1 shl Tag)) > 0;
    end
    else if Components[Idx] is TRadioButton then
    begin
      with TRadioButton(Components[Idx]) do
        Checked := (Value and (1 shl Tag)) > 0;
    end
end;

---

---

@+Cirec

---