Discussion :

[abdelghani_k]

Bonjour tout le monde,

J'ai 20 combobox identiques et je veux les remplir par les mêmes items, je veux éviter la programmation linéaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
combobox1.items.clear;
combobox1.items.add('c1');
combobox1.items.add('c2');
combobox1.items.add('c3');
combobox1.items.add('c4');
combobox1.items.add('c5');
...
combobox20.items.clear;
combobox20.items.add('c1');
combobox20.items.add('c2');
combobox20.items.add('c3');
combobox20.items.add('c4');
combobox20.items.add('c5');

Ce que je veux c'est une seule boucle pareille :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
for i:=1 à 20 do
begin
  comboboxi.items.clear;
  comboboxi.items.add('c1');
  comboboxi.items.add('c2');
  comboboxi.items.add('c3');
  comboboxi.items.add('c4');
  comboboxi.items.add('c5');
end;

J'ai essayé pour comboboxi la syntaxe

Code :

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

Tcombobox('combobox'+inttostr(i))

mais ca marche pas (erreur dans l'exécution).

Y'a t-il une idée pour cela et merci d'avance.

[defluc]

Bonjour

Essaie

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For i:= 1 to 20 do
begin
   TCombobox(FindComponent('Combobox' + IntToStr(i))).items.clear;
   TCombobox(FindComponent('Combobox' + IntToStr(i))).items.add('c1');
   TCombobox(FindComponent('Combobox' + IntToStr(i))).items.add('c2');
   TCombobox(FindComponent('Combobox' + IntToStr(i))).items.add('c3');
   TCombobox(FindComponent('Combobox' + IntToStr(i))).items.add('c4');
   TCombobox(FindComponent('Combobox' + IntToStr(i))).items.add('c5');
end;

[abdelghani_k]

Merci defluc, c résolu.