[RESOLU] Flags

[Progi1984]

Bonjour, je souhaiterais utiliserais des flags dans une de mes procédures.

Je souhaiterais pouvoir les ajouter et faire un test rapide des optiosn.

Code : Tout sélectionner

Genre : Option1 | Option2 | Option3

Test : If Flags contient Option1, etc...

Je sais que cela fait partie des spécifications de Purebasic, mais je n'arrive pas à voir où cela est

Merci d'avance

[cha0s]

Code : Tout sélectionner

#Option1 = %001
#Option2 = %010
#Option3 = %100
Debug #Option1
Debug #Option2
Debug #Option1 | #Option2
Flag.i = #Option1 | #Option2
If Flag & #Option1 = #Option1
  Debug "Option 1 dans le drapeau"
EndIf

If Flag & #Option2 = #Option2
  Debug "Option 2 dans le drapeau"
EndIf

If Flag & #Option3 = #Option3
  Debug "Option 3 dans le drapeau"
EndIf

question de 1 et de 0 ^^'

[tmyke]

Tu veux dire un truc qui ressemblerait à ça ?
(exemple vraiment simplifié)

Code : Tout sélectionner

#FLAG1 = $0001
#FLAG2 = $0002
#FLAG3 = $0004
#FLAG4 = $0008

test.l = #FLAG1 | #FLAG3 | #FLAG4

Debug test

If (test & #FLAG1)
 Debug "#FLAG1"
EndIf
If (test & #FLAG2)
 Debug "#FLAG2"
EndIf
If (test & #FLAG3)
 Debug "#FLAG3"
EndIf
If (test & #FLAG4)
 Debug "#FLAG4"
EndIf

EDIT: oups, double post , désolé cha0s

[Progi1984]

Exactement ce que je voulais. Merci à vous deux