Discussion :

[qi130]

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 ?