TestBit
Test l'état d'un bit d'une valeur entière
Syntaxe
function TestBit(i: Integer; bit: Integer): Booleanhelper Integer.TestBit(bitIndex: Integer): Boolean (Qubes 9.0)
i: entier à tester
bit: bit à tester
Remarques
Teste le bitième bit de i, retourne True s'il est à 1.
bit = 0 correspond au bit de poids faible (le LSB).
Exemples
var val := 13;
PrintLn( IntToBin(val, 4) ); // 1101 en binaire car 13 = 1 x 2^3 + 1 x 2^2 + 0 x 2^1 + 1 x 2^0
PrintLn( TestBit(val, 0) ); // True
PrintLn( TestBit(val, 1) ); // False
PrintLn( TestBit(val, 2) ); // True
PrintLn( TestBit(val, 3) ); // True
PrintLn( IntToBin(val, 4) ); // 1101 en binaire car 13 = 1 x 2^3 + 1 x 2^2 + 0 x 2^1 + 1 x 2^0
PrintLn( TestBit(val, 0) ); // True
PrintLn( TestBit(val, 1) ); // False
PrintLn( TestBit(val, 2) ); // True
PrintLn( TestBit(val, 3) ); // True