boucle incorrecte

Question

Salut, 



je rencontre un probl&#232;me avec une boucle For. 

Dans une function j'initialise une collection et je la parcours avec ma
boucle for , jusque la pas de souci, mais quand j'essaye de me servir
de l'indice de boucle , il est toujours r&#233;initialis&#233; &#224; 1. A la premier
execution il est &#224; 0 mais apres &#224; chaque passage dans la boucle la
valeur est 1 . 

J'ai meme essay&#233; de cr&#233;er une variable intermediaire,  et de l'increment&#233; avec inc() mais pareil m&#234;me sympt&#244;me. 

Le pluis inquietant c'est que le nombre de boucle est correct  .



Si quelqu'un a une id&#233;e je suis preneur. 



Merci 

Polcap





ma boucle :





   Coll := DbDesign.FindDesignNotes (Formul,0,NoteClassSearched, '');



    try

      indice := 0;

      for ind:= 0 to coll.count-1 do

        begin

          DocDesign := coll.Document [indice];



          InitFormInfo(FormInfo);

            DocDesign.Free;

            inc(indice);

       end;

POLCAP · Answer

Tiens j'ai trouve un truc super &#233;trange , je n'ai le bug que si
j'optimise mon code (option du compilateur) sinon ca marche bien. Ca
ressemble mega a un bug .



M'enfin ....

cs_neko · Answer

il y a de grande chance que le compilateur virre carrement le "indice" et le "ind" pendant ses optimisation, il le remplace sans doutes par un pointeur pour parcourrir le tableau et l'increment pour chaque iteration.
il transforme peut-&#234;tre ( et j'insiste sur le "peut-&#234;tre" ) le code en un truc du genre

For p:=Pointer(Coll.FItems) To Pointer(Coll.FItems.Count-1) Do
   InitForInfo(ForInfo);
   TDocDesign(p).Free,
End;
( dur dur de traduire en delphi la traduction eventuelle du compilateur )
Mais normalement &#231;a n'a aucune impacte sur le code ( &#231;a change pas ce qu'il fait ) sauf qu'au debug ton I a des valeurs completement a l'ouest ( comme il n'existe pas ). Enfin, ce que je dis n'est qu'un possibilit&#233;, il faudrait verrifier le code ASM gener&#233;. Si tu t'y connait un peu en ASM, il suffit de mettre un point d'arret o&#249; tu veux et a l'execution faire ctrl+alt+c

bouh

cs_neko · Answer

( je precise quand m&#234;me pour ceux qui auront pas compris qu'il est impossible d'&#233;crire la boucle que j'ai &#233;crit, FItems &#233;tant private dans TCollection et le compilateur ne voulant pas de pointeur en boucle For , c'est vraiment pour representer ( Je sent d&#233;j&#224; venir les critiques ))

bouh

Emandhal · Answer

Juste un truc, comme ca en passant... (Non pas pour toi N)
Pourquoi ne pas faire ça ? :

Coll := DbDesign.FindDesignNotes (Formul,0,NoteClassSearched, '');

    try
      for ind:= 0 to coll.count-1 do
        begin
          DocDesign := coll.Document[ind];

          InitFormInfo(FormInfo);
            DocDesign.Free;
       end;

WhiteHippo · Answer

POLCAP, quelquechose me chagrine avec ton code. Quelques eclaircissements pourraient m'aider &#224; mieux analyser ton probl&#232;me. 

DocDesign il sert &#224; quoi ??? Tu l'initialises puis tu le lib&#232;res sans l'utiliser !! Est-ce une variable locale ou bien globale(utilis&#233;e dans InitFormInfo) ?? Est ce que c'est DocDesign que tu veux lib&#233;rer ou bien l'&#233;l&#233;ment de la collection coll.Document[ind] ??

N.B. Dans le menu Projet, Options, Messages du compilateur, v&#233;rifie que tout est coch&#233; et recompile ton projet. Tu auras alors les optimisations effectu&#233;es par Delphi (variables et/ou lignes supprim&#233;es car non utilis&#233;es, etc...)

Cordialement.



<HR>



Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

Boucle incorrecte

5 réponses

Votre réponse

Discussions similaires