BITTEST( )-Funktion

Gibt Wahr (.T.) zurück, wenn ein angegebenes Bit eines numerischen Wertes auf 1 gesetzt ist; andernfalls wird Falsch (.F.) zurückgegeben.

BITTEST(nExpression1, nExpression2)

Rückgabewerte

Logisch

Parameter

• nExpression1
  Gibt den numerischen Wert an, in dem ein Bit geprüft werden soll. Ist nExpression1 kein Integerwert, wird dieser vor dem Prüfen des Bits in einen Integerwert umgewandelt.
• nExpression2
  Gibt die Position des zu prüfenden Bits von nExpression1 an. nExpression2 kann im Bereich von 0 bis 31 liegen; 0 bezeichnet das Bit ganz rechts.

Beispiel

Im folgenden Beispiel wird mit BITTEST( ) festgestellt, ob eine Anzahl von Integerwerten geradzahlig ist. Ist ein Integerwert geradzahlig, so gibt IsEven Wahr (.T.) zurück, andernfalls Falsch (.F.).

CLEAR
? '2 even? '
?? IsEven(2)  && Even, .T. returned
? '3 even? '
?? IsEven(3)  && Not even, .F. returned
? '0 even? '
?? IsEven(0)  && Even, .T. returned
? '-13 even? '
?? IsEven(-13)  && Not even, .F. returned

Function IsEven
   PARAMETER nInteger
   RETURN NOT BITTEST(nInteger, 0)

Siehe auch

BITAND( ) | BITCLEAR( ) | BITLSHIFT( ) | BITNOT( ) | BITOR( ) | BITRSHIFT( ) | BITSET( ) | BITXOR( )