Probleme avec cycle "for"

Version imprimable

09/05/2007, 11h15
Jano11

Probleme avec cycle "for"
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:

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?
09/05/2007, 11h18
SergioMaster

Houlà ? faudrait un peu plus de code

i ne serait pas utilisé à l'interieur de la boucle ?
09/05/2007, 11h22
ShaiLeTroll

C'est tout à fait normal !

Citation:

Envoyé par SergioMaster

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 ...

Merci de vos reponses.

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

Code:

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.

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:

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;

Citation:
Envoyé par 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:

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.

09/05/2007, 12h40
droggo

Jal,

C'est une des facéties fréquentes de Delphi, pour optimiser.

Selon le cas, ça pose problème ou pas.

Si un problèmes existe, on peut toujours remplacer la boucle for (et non "le cycle" :D) par une boucle while ou repeat, selon le cas.
09/05/2007, 13h43
ShaiLeTroll

Citation:

Envoyé par droggo

Selon le cas, ça pose problème ou pas.
Si un problèmes existe, on peut toujours remplacer la boucle for (et non "le cycle" :D) par une boucle while ou repeat, selon le cas.

8O Cela ne pose jamais aucun problème, c'est juste les facéties du debugger, en RunTime, il n'y a jamais de problème, il n'y a que certains cas, ou il faut faire un downto au lieu d'un to mais cela ne concerne pas la boucle mais l'action quelle contient ...

Citation:
Envoyé par 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:

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.

09/05/2007, 19h01
Fabrice ROUXEL 1

Je te conseille de LIRE et APPRENDRE le langage Delphi. Il existe de nombreux cours et tutoriaux sur le site.
09/05/2007, 19h13
ShaiLeTroll

Il faut pour ShowMessage, ajouter Dialogs dans les uses
Il faut pour Memo1, ajouter un Memo dans une Form, ...

Citation:

Envoyé par Fabrice ROUXEL 1

Je te conseille de LIRE et APPRENDRE le langage Delphi. Il existe de nombreux cours et tutoriaux sur le site. :king:
09/05/2007, 20h44
Jano11

Citation:

Envoyé par Fabrice ROUXEL 1

Je te conseille de LIRE et APPRENDRE le langage Delphi.

Et le forum de discussions sert a quoi alors?
09/05/2007, 20h45
Jano11

Citation:

Envoyé par ShaiLeTroll

Il faut pour ShowMessage, ajouter Dialogs dans les uses
Il faut pour Memo1, ajouter un Memo dans une Form, ...

Merci pour ton aide.
09/05/2007, 20h54
ShaiLeTroll

Ce que voulait dire "Fabrice ROUXEL 1" par sa remarque est que
L'important n'est pas la solution mais le pourquoi cette solution ! Je t'ai solutionné tes problèmes, mais as-tu compris ces solutions ?

Sinon un réflexe indispensable, pour une fonction avec un message Identificateur non déclaré, souvent faire F1 sur le mot t'amène sur une page d'aide, tu as au début de la page, l'unité qui te permettra de l'utiliser. Si l'aide ne fonctionne pas, peut-être une coquille ChaudMassage au lieu de ShowMessage :mouarf:

Pour ce qui concerne l'erreur "Record, object or class type required", c'est souvent que l'objet (généralement séparés par des . tel que Objet Memo qui contient l'objet Lines qui contient la propriété Text ...) n'est pas déclaré, et que l'expression est trop complexe pour qu'il renvoie "Identificateur non déclaré" mais "Record, object or class type required" car souvent plus juste ...

Tu devrais consulter les Tutoriaux (ou ceux sur Phidels.com), car bcp de réponse que tu peux avoir tel que celle-ci seront traités ... ensuite pour des problèmes plus hype ou plus intéressant, ou n'ayant pas trouvé de réponse en Tuto/FAQ/Google, tel que l'optimisation des boucles for, le forum de discussions est là ...

Maintenant, au lieu de cycle, on utilise le terme d'itération, ... la boucle étant la structure qui génère les itérations ...