Boucle For : je sais plus programmer !

contexte: 1 appli Mysql

Je reprends qq lignes glanées ça et là :
Code:

1 2 3 4 5 6 7 8 9 10 11 if mysql_query(mySQLConnection, 'select * from nature_pgm') = 0 then begin myRES := mysql_store_result(mySQLConnection); if (myRES <> nil) then begin for i := 0 to myRES.row_count - 1 do begin myROW := mysql_fetch_row(myRES); aStr := myROW^[0]; ComboBox4.Items.Add(aStr); end; mysql_free_result(myRES); end; end;
Le pb est que quand myRES.row_count vaut 0, je rentre quand même dans le For...
Je me dis que je vieillis mal, et que mes souvenirs s'envolent + vite que mes cheveux, mais l'aide Delphi annonce clairement que

Citation:

Si valeurInitiale est supérieure à valeurFinale dans une instruction for...to ou inférieure ou égale à valeurFinale dans une instruction for...downto, alors l'instruction n'est jamais exécutée

Alors, quoi se passe t'il ? :evil:

peut etre qu'en affinant ton if et en deplaçant le mysql_free_result(myRES); ton code marchera mieux :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
if mysql_query(mySQLConnection, 'select * from nature_pgm') = 0 then begin 
        myRES := mysql_store_result(mySQLConnection); 
        if ((myRES <> nil)and(myRES.row_count <> 0)) then begin 
            for i := 0 to myRES.row_count - 1 do begin 
                myROW := mysql_fetch_row(myRES); 
                aStr := myROW^[0]; 
                ComboBox4.Items.Add(aStr); 
            end; 
        end;     
        mysql_free_result(myRES);
    end;

see ya

Clan

Est ce que i est déclaré comme Cardinal ? dans ce cas c'est normal tu entre dans la boucle puisque dans ce cas -1 = 4294967295.

:idea: BINGO !

Merci :hola: