contexte: 1 appli Mysql
Je reprends qq lignes glanées ça et là :
Le pb est que quand myRES.row_count vaut 0, je rentre quand même dans le For...
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;
Je me dis que je vieillis mal, et que mes souvenirs s'envolent + vite que mes cheveux, mais l'aide Delphi annonce clairement queAlors, quoi se passe t'il ?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![]()
Partager