Discussion :

[Vulvulune]

Bonjour à tous,

Je recois comme paramétres le numéro du bit et sa valeur par exemple (6, false), et j'aimerais avec ca remplir un byte et le convertir en integer.

exemple:
valeur de départ : 01001010
(6, false)
valeur d'arrivée : 00001010
En integer: 10

J'ai essayé avec la fonction suivante mais je n'arrive pas à récuperer la valeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure
var
  i : integer;
  Value: TBits;
begin
  Value.Size := 8;
  Value.Bits[ValueBit] := false;  //value bit = 6 
end;

Est-ce que quelqu'un pourrait m'orienter pour trouver une solution simple... surtout que je sais que c'est très simple car en assembleur c'est fait en 2 lignes mais je n'ai pas envie de mettre de l'assembleur dans mon code.

Valentin

[executter]

delphi ne manipule pas le bit à bit, il faut donc passer par les opérateurs and&cie.

pour mettre le bit à 1 : valeur or 2^rangbit
pour le mettre à 0 : valeur and not(2^rangbit)

[delphi-fan]

Pour manipuler les bits, il faut utiliser les mêmes fonctions que tu trouves en assembleur, soit Not , And, Or , Xor , Shl , Shr .

Prenons un exemple : j'ai le nombre 10 = 1010 en binaire .
Je veux inverser le bit n°3 -> 10 XOR (2^(3 - 1)) = 14 décimal = 1110 binaire !! Inversement, 14 Xor 4 = 10 décimal .

=> nombre de départ XOR [ 2 ^ (position bit souhaité - 1) ]

A+

[Nono40]

Attention, l'opérateur ^ retourne une valeur flotante et dans tous les cas c'est très long. Il faut utiliser SHL à la place.

Mettre un bit à 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur:=Valeur Or (1 Shl (numbit-1));

Mettre un bit à 0 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur:=Valeur And Not(1 Shl (numbit-1));

Inverser un bit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur:=Valeur Xor (1 Shl (numbit-1));

[Vulvulune]

C'est bon ca a marché.

Merci beaucoup pour vos réponses si clairs et si rapides. Je suis toujours épaté de la puissance de ces forums

Valentin B.

ET VIVE L'INTERNET LIBRE!!!

[Nono40]

Je viens de voir que j'ai répondu des bétises

Le premier bit est le bit 0, donc il faut écrire :

Mettre un bit à 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur:=Valeur Or (1 Shl numbit);

Mettre un bit à 0 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur:=Valeur And Not(1 Shl numbit);

Inverser un bit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur:=Valeur Xor (1 Shl numbit);

Désolé..........