Recherche:

Petit essai rapide pour répondre, boucle simple faite avec LOOP ou DEC/JNE


procedure TForm1.Button3Click(Sender: TObject);
Var i,t:Integer;
h:DWord;
begin
t:=0;
H:=GetTickCount;
...

Il est vrai que je n'avais jamais fait attention au fait que LOOP ne modifie pas les flags :oops:

Par contre pour la vitesse, j'avais déjà noté cette différence sur les processeurs récents. Et...

L'instruction LOOP est exactement la même chose que :

DEC ECX ; ou CX en mode 16 bits
JNE xxx