Discussion :

[jackvpt]

Bonjour à toutes et à tous,

J'ai un souci avec mes boucles For To Next:
elles tournent à l'envers.

Voici mon code (tout simple):

for j:=1 to 15 do begin
for i:=1 to 40 do begin
blablabla........
end;
end;

Le problème c'est que quand j'exécute le code pas à pas, je constate que la variable 'j' part de 15 pour finir à 1 et la variable 'i' part de 40 pour finir à 1. Tout à l'envers alors que je ne lui ai pas demandé .

Quelqu'un peut-il m'aider à résoudre ce problème ?

Merci de votre aide

[sat83]

C'est le compilateur Delphi qui optimise tes boucles.

Une discussion sur le sujet.

[jackvpt]

Yes

Merci de ton lien, j'ai enlevé l'optimisation et ça marche maintenant très bien.

Bonne journée à tous...

[Dr.Who]

tu peux egalement faire :

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
 
var i,j: integer;
begin
  j := 0;
  repeat
    i := 0;
    repeat
 
      {code }
 
      inc(i);
    until i = 39;
    inc(j);
  until j = 14
end;

[jackvpt]

J'avais aussi une solution avec while mais je me demandais surtout pourquoi ça tournait à l'envers.

Merci également de ta réponse Dr.Who