Boucle infinie avec un for (et si)

Commenter

Contenu du snippet

Bon çà n'a aucun intérêt dans ce cas, mais dans un for j'avais cherché à incrémenter le compteur pour sauter les valeurs paires... Et voici l'astuce que j'avais trouvé, Delphi refusant qu'on touche à la variable compteur...

Source / Exemple : 


program toto;

{$APPTYPE CONSOLE}

uses SysUtils;

var i: Integer;

begin
  for i := 0 to 1 do begin
    writeln('i=', i);
    asm
      mov eax, i
      sub eax, 1
      mov i, eax
    end;
  end;
end.

Conclusion :


Je sais que çà ne sert à rien là, pas la peine de demander l'intérêt :p

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Nebula)