Boucle sur des compostants delphi

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)

Code:

---

1 2 3 4

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.

utilise FindComponent('ADOQuery'+IntToStr(i)) dans la boucle et teste si résultat nil.

si tu dois utiliser ce genre de code plusieurs fois, autant ne faire qu'une boucle pour loger les objets trouvés dans un tableau ou une liste

Super, merci, je vais essayer ça.

si tu utilises un data module essaye ça

Code:

---

1 2 3 4 5 6 7 8 9 10

var i:integer; begin For I := 0 to ComponentCount -1 do     If Components[I] is TADOQuery then   (Components[I] as TADOQuery).active:=true; end;

---