Boucle For : je sais plus programmer !

**qi130** · 21/07/2004, 21h17

contexte: 1 appli Mysql

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

Code :

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

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

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 ?

**Clandestino** · 21/07/2004, 21h48

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

Code :

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

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;