Problème avec mes ComboBox

Bonjour,

J’ai déclaré plusieurs listes déroulante d’éléments comme ceci :

Fonction_MVK0 : TComboBox
Fonction_MVK1 : TComboBox
Fonction_MVK2 … jusqu’à Fonction_MVK15

Ensuite dans une fonction, je veux tester le contenu (contenu en cours, celui que j’ai sélectionné sur mon application) de ces listes.

Comme ceci par exemple pour une seule listes : Application.Fonction_MVK0.text = ‘entree’ ;

En faite je veux faire ceci :

Code:

---

1 2 3 4 5 6 7 8

for index :=8 to 15 do begin If Application.Fonction_MVK “mon index”. text = 'entree' Then Begin Mon code… End end;

---

Avez vous une solution à me proposé ?

PS : Je travaille sur un projet Delphi Win32 sous Delphi 2005 (Borland)

Merci

Salut

Fais une recherche sur ce forum avec FindComponent, tu auras de multiples exemples qui répondront à ta demande.

[edit]
En fait tu devrais aboutir à quelle chose comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var i: Integer; MonCombo: TComboBox; begin for i := 8 to 15 do begin MonCombo := TComboBox(FindComponent('Fonction_MVK' + IntToStr(i))); if (MonCombo <> nil) and (MonCombo.Text = 'Entrée') then begin // Ton traitement end; end; end;

---

[/edit]

@+ Claudius

Merci beaucoup ça fonctionne impec ;)

Merci de cliquer sur Résolu en bas du navigateur.