Discussion :

[smyley]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 procedure setBit(var val : Integer;pos : Integer;
                  BitVal : Boolean);
 var
  ActualVal : Boolean;
  tmpVal,i : Integer;
 begin
 
  tmpVal := val;
  ActualVal := getBit(val,pos);
  if(ActualVal <> BitVal) then
   begin
    val := val shr pos;
 
    if(ActualVal = True) then
     val := val -1
    else
     val := val +1;
 
    for i := 1 to pos do
     begin
      val := val shl 1;
      if(getBit(tmpVal,pos-i)) then
       val := val +1;
     end;
   end;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i : Integer;
begin
 i := 0;
 setBit(i,0,True);
 setBit(i,1,True);
 setBit(i,2,True);
 setBit(i,3,False);
 setBit(i,4,True);
 ....

voilà, ce n'est pas vraiment optimisé mais on a bien
10111

[Edit]folie quand tu nous tient, extra optimisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 procedure setBit(var val : Integer;pos : Integer;
                  BitVal : Boolean);
 var
  ActualVal : Boolean;
 begin
  ActualVal := getBit(val,pos);
  if(ActualVal <> BitVal) then
   begin
    if(ActualVal) then
     val := val - (1 shl pos)
    else
     val := val + (1 shl pos);
   end;
 end;

[Henri_13]

Merci smyley ca marche Nickel

Cordialement Henri

[Nono40]

Puisqu'il semble qu'il faut être un peu fou sur ce topic...

Code :

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

1
2
3
4
5
6
7
procedure setBit(var val : Integer;pos : Integer; 
                  BitVal : Boolean); 
 begin 
  If BitVal
    Then Val := Val Or (1 Shl Pos)
    Else Val := Val And (Not(1 Shl Pos));
 end;

[Nono40]

dédicacé à tourlourou

Code :

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

1
2
3
4
5
6
7
8
procedure setBit(var val : Integer;pos : Integer;BitVal : Boolean);Register;
asm
  BTR [EAX],EDX
  TEST ECX,ECX
  JZ @Fin
  BTS [EAX],EDX
@Fin:
end;

[smyley]

dit tu pourrais m'expliquer ce que fait ton code au juste ? ( j'ai jamais vraiment pigé l'asm )
EAX est égal à quoi au début ?
BTR et BTS font quoi ?
TEST au moin j'ai compris qu'on vérifie si EAX != NULL
...

[Nono40]

Avec la directive register les arguments sont dans EAX, EDX puis ECX.
Ici Val est passé par variable, donc dans EAX c'est l'adresse de Val et non val lui-même.
EDX contient le deuxième argument. Ici POS
ECX contient le troicième paramètre, ici bitval

BTR met le teste le Nème bit puis le met à zéro. On ne se sert pas du test ici, mais juste de la mise à zéro.

BTS fait de même en le mettant à 1.

On le met donc à 0 par défaut puis on le met à 1 en fonction du test.

Si tu veux plus de détails sur l'asm dans Delphi c'est ici :
http://nono40.developpez.com/tutoriel/delphi/asm
Pour le détail des fonctions c'est ici :
http://intel.com

[smyley]

ok je voie,
pour cette lumière
faudrait que j'éssai de m'y mettre, au moin pour le fun

[muquet]

whaou !! toutes ces reponses + compliquées les une ke les autres .... !!!

merci a tous ... bon a present fo ke je lise tout ca ... ;-)

encore merci !

[LadyWasky]

Allez, je vous livre mes versions
Sachant que le bit le plus faible est le n°0

c'est une dédicace pour tourlourou
c'est aussi une dédicace pour Nono40 (y'a pas de vilain label dans mon assembleur)

Teste si un bit est égal à 1 :

Code :

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

1
2
3
4
5
6
7
8
function TestBit(const Value: Integer; const Bit: byte): Boolean;
asm
 mov ecx,edx
 mov edx,$00000001
 shl edx,cl
 test edx,eax
 setnz al
end;

"Allume" un bit :

Code :

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

1
2
3
4
5
6
7
function SetBit(const Value: Integer; const Bit: byte): Integer;
asm
  mov ecx,edx
  mov edx,$00000001
  shl edx,cl
  or eax,edx
end;

"Eteint" un bit :

Code :

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

1
2
3
4
5
6
7
8
function ClearBit(const Value: Integer; const Bit: byte): Integer;
asm
  mov ecx,edx
  mov edx,$00000001
  shl edx,cl
  not edx
  and eax,edx
end;

Inverse un bit :

Code :

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

1
2
3
4
5
6
7
function ToggleBit(const Value: Integer; const Bit: byte): Integer;
asm
  mov ecx,edx
  mov edx,$00000001
  shl edx,cl
  xor eax,edx
end;

ça y'est, j'ai aussi explosé un neurone !

[Nono40]

Setbit, ClearBit, et togglebit tu peux le faire en une seule ligne ASM Je te laisse chercher un peu.

[TicTacToe]

PETIT RESUME , après tout ca

Réponse à la question initiale, je vois 2 codes + rapide et + compact sans assembleur.

Mon code était rapide mais tournait 32 fois (pour un entier), quelque soit le nombre à tester.
Celui de Nono (rectifié) est je pense au moins aussi rapide, et s'arrete de tourner dès qu'il n'y a plus de bit activé (donc nettement + rapide pour de petits nombres)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// renvoie N° de bits activé, en commencant par 1
// Variante, code initial Nono
function BinExoNono(valeur:longword):string;
var
	IPos : Integer;
Begin
  Result:='';
  IPos := 1;
  Repeat
    if Valeur and 1 <> 0
      then Result := Result + IntToStr( IPos ) + ';'; 
    Valeur := Valeur shr 1;
    Inc( IPos );
  Until Valeur=0;
End;

et pour la conversion Nombre->chaine binaire, celui de nono

Code :

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

1
2
3
4
5
6
7
8
9
// Affiche un entier sous forme binaire
function hexatobin(valeur:longword):string;
Begin
  Result:='';
  Repeat
    Result:=Chr(48+Ord(Odd(Valeur)))+Result;
    Valeur := Valeur shr 1;
  Until Valeur=0;
End;

Ce post finira-t-il un jours ?

[LadyWasky]

Setbit, ClearBit, et togglebit tu peux le faire en une seule ligne ASM Je te laisse chercher un peu.

Là, tu me cherches (si, si ), tu veux que je "claque" mon dernier neurone ? Je le vois dans ton regard...
Bon, n'y aurait-il pas du register et du BTR, du BTS et du BTC dans l'air par hazard ?

Comme ça :

Code :

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

1
2
3
4
procedure SetBit(var Value: Integer; const Bit: byte); Register;
asm
  BTS [eax],edx
end;

"Eteint" un bit :

Code :

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

1
2
3
4
Procedure ClearBit(var Value: Integer; const Bit: byte); Register;
asm
  BTR [eax],edx
end;

Inverse un bit :

Code :

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

1
2
3
4
5
 
Procedure ToggleBit(var Value: Integer; const Bit: byte); Register;
asm
  BTC [eax],edx
end;

Trop fastoche

[LadyWasky]

Bonus !!!

Une amélioration de TestBit :

Code :

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

1
2
3
4
5
function TestBit(const Value: Integer; const Bit: byte): Boolean; register;
asm
 BT eax,edx
 setb al
end;

ça c'est de l'optimisation

[muquet]

Tout d'abord, un grand a tout le monde pour les nombreuses reponses.

et pour info :
j'ai juste utilise des et logiques :

du style :

Code :

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

1
2
3
4
if (iCodeBinReference and  iCodeBinATester = iCodeBinReference ) then
begin
...
end;

avec iCodeBinReference et iCodeBinATester : integer

ca marche tres bien.

encore merci