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 539 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.

A voir également:

Boucle sur des compostants delphi
Telecharger delphi - Télécharger - Langages
Clé delphi 7 - Forum Delphi
Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
Numéro de série delphi 7 ✓ - Forum Delphi
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système

1 réponse

Réponse 1 / 1

Heremion Messages postés 539 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 ;

Heremion Messages postés 539 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] :)

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Redémarrage en boucle Xiamo mi note 10

faire une boucle sans VBA

Boucle en Batch

Ma Freebox redémarre tout le temps

Discussions similaires

Newsletters