Discussion :

[fred61]

Bonjour,

Existe t-il une fonction en Delphi permettant d'effectuer une rotation sur un bit ?

Merci.

[Linkin]

shr ou shl?

[fred61]

Avec shr et shl, les bits sortant sont perdus, ce dont j'aurai besoin serait plutôt que les bits sortants se retrouve de l'autre coté, comme un ROL en assembleur.

[ShaiLeTroll]

Voir ce sujet Delphi et assembleur, j'ai proposé ceci

Code :

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

1
2
3
4
   function RotateLeft(Value: Longword): Longword;
   asm
     ROL EAX, 1
   end;

Pourquoi EAX, il faut lire la Convention d'Appel Register (__fastcall en BCB)

[fred61]

ça me parait une très bonne solution merci, ça fonctionne si on fait ça avec une variable de type byte ? Par exemple si je l'adapte comme ça :

function RotateLeft(Value: byte): byte;
asm
ROL EAX, 1
end;

[fred61]

Pas la peine de répondre, j'ai fais un test ça fonctionne très bien.
Encore merci.