Discussion :

[sam_sonite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Cl@udius]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sam_sonite]

Merci beaucoup ça fonctionne impec

[pinson]

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