Boucle sur des compostants delphi

Fermé
Ange Angelique Messages postés 43 Date d'inscription dimanche 24 août 2008 Statut Membre Dernière intervention 18 janvier 2012 - Modifié par Ange Angelique le 2/06/2011 à 12:53
Heremion Messages postés 538 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 - 7 sept. 2011 à 14:04
Bonjour,

Je voudrai faire une boucle qui active tous les adoquery de mon application, j'ai essayé quelque chose qui bien évidemment ne marche pas (pour une seule form)

var i: integer;

for i:=1 to 3 do
adoqueryi.open;

Bien sure adoquery n'est pas reconnu, pouriez vous m'orienter svp.

Le question peut s'étendre sur plein de composants.

Merci.


1 réponse

Heremion Messages postés 538 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 102
1 sept. 2011 à 12:04
Essaie un truc du genre :
for i := 0 to Self.ComponentCount - 1 do
begin
    if ((Components[i] is TADOQuery) then
      (Components[i] as TADOQuery).Open ;
end ;

0
Heremion Messages postés 538 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 102
7 sept. 2011 à 14:04
Si ce code t'a aidé, penses à marquer le post en [Résolu] :)
0