Discussion :

[Jano11]

Bonjour, ceci est mon premier message sur le site et il est du a un probleme avec des cycles for.
En gros je lance un cycle de genre

Code :

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

1
2
3
4
 for i:=0 to 1 do
   begin
   ...
   end

le proleme est que il commence avec i=2 pour continuer ensuite avec i=1 et i=0 !

D'ou peut venir cette erreur?

[SergioMaster]

Houlà ? faudrait un peu plus de code

i ne serait pas utilisé à l'interieur de la boucle ?

[ShaiLeTroll]

C'est tout à fait normal !

i ne serait pas utilisé à l'interieur de la boucle ?

Effectivement, vu que tu n'utilise pas i ... le compilateur modifie la boucle pour remplacer un test de comparaison lent (i <> x) contre un test plus rapide (i = 0) ... c'est de l'optimisation ...

Ensuite, il ne faut pas faire confiance au Debugger Delphi pour les variables de boucle for, un log (outputDebugString, showmessage, TMemo, fichier ...) te donneras les vrais valeurs ...

[Jano11]

Merci de vos reponses.

Mes excuses pour le premier message trop sommaire.
Voici le code plus detailee:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for i:=0 to 1 do          
    begin           
      VectSurf[i,0]:=0;
      VectSurf[i,1]:=0;
      VectSurf[i,2]:=0;
      for k:=0 to 7 do                    
      begin
        VectSurf[i,0]:=VectSurf[i,0]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].x;
        VectSurf[i,1]:=VectSurf[i,1]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].y;
        VectSurf[i,2]:=VectSurf[i,2]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].z;
      end;
    end;

J'ai en effet le meme souci avec k, qui commence avec 8 et apres continue avec 7 ... jusqu'a 0.

[ShaiLeTroll]

Dans ton cas, je pense que c'est juste un problème d'affichage de debugger ... qui pense avoir une variable optimisée alors qu'elle ne l'est pas et donc affiche une valeur fausse (un truc du genre)

test comme ci :

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
for i:=0 to 1 do 
begin 
  VectSurf[i,0]:=0;
  VectSurf[i,1]:=0;
  VectSurf[i,2]:=0;
  ShowMessage(IntToStr(i)); // ou Memo1.Lines.Add('i : ' + IntToStr(i));
 
  for k:=0 to 7 do 
  begin
    VectSurf[i,0]:=VectSurf[i,0]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].x;
    VectSurf[i,1]:=VectSurf[i,1]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].y;
    VectSurf[i,2]:=VectSurf[i,2]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].z;
   ShowMessage(IntToStr(k)); // ou Memo1.Lines.Add(Format('i: %d, k: %d', [i, k]));
  end;
end;

[Jano11]

Dans ton cas, je pense que c'est juste un problème d'affichage de debugger ... qui pense avoir une variable optimisée alors qu'elle ne l'est pas et donc affiche une valeur fausse (un truc du genre)

test comme ci :

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
for i:=0 to 1 do 
begin 
  VectSurf[i,0]:=0;
  VectSurf[i,1]:=0;
  VectSurf[i,2]:=0;
  ShowMessage(IntToStr(i)); // ou Memo1.Lines.Add('i : ' + IntToStr(i));
 
  for k:=0 to 7 do 
  begin
    VectSurf[i,0]:=VectSurf[i,0]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].x;
    VectSurf[i,1]:=VectSurf[i,1]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].y;
    VectSurf[i,2]:=VectSurf[i,2]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].z;
   ShowMessage(IntToStr(k)); // ou Memo1.Lines.Add(Format('i: %d, k: %d', [i, k]));
  end;
end;

Merci,

Je vais l'essayer tout de suite.

[Jano11]

Dans ton cas, je pense que c'est juste un problème d'affichage de debugger ... qui pense avoir une variable optimisée alors qu'elle ne l'est pas et donc affiche une valeur fausse (un truc du genre)

test comme ci :

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
for i:=0 to 1 do 
begin 
  VectSurf[i,0]:=0;
  VectSurf[i,1]:=0;
  VectSurf[i,2]:=0;
  ShowMessage(IntToStr(i)); // ou Memo1.Lines.Add('i : ' + IntToStr(i));
 
  for k:=0 to 7 do 
  begin
    VectSurf[i,0]:=VectSurf[i,0]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].x;
    VectSurf[i,1]:=VectSurf[i,1]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].y;
    VectSurf[i,2]:=VectSurf[i,2]+LocGradSurf[i,k]*Nodes[conn_face[num_face,k]].z;
   ShowMessage(IntToStr(k)); // ou Memo1.Lines.Add(Format('i: %d, k: %d', [i, k]));
  end;
end;

Re Bonjour,

Je n'arrive pas a utiliser "ShowMessage", ni l'autre methode, malheureusemet, car il me renvoit des erreurs du genre:

[Error] Hex_20.pas(1332): Record, object or class type required

et je n'ai pas la moindre idee pourquoi.

Merci pour votre aide et votre temps.