Discussion :

[BuzzLeclaire]

Bonjour à tous et à toutes,

Je tante d'utiliser un Array of string pour remplir les items d'un combobox

J'ai déclaré cela

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
16
Type
   Choix= Array of string;
 
Type
....
  procedure RempliComboOperation(Combo: TComboBox; List: Choix);
 
....
 
procedure TForm1.RempliComboOperation(Sender: TObject; Combo: TJvComboBox; List: Choix);
Var
  i: Integer;
Begin
  for i:=0 to High(List) do
    Combo.Items.Add(List[i]);
end;

Et je l'utilise de la sorte

Code :

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

  RempliComboOperation(ComboOperation,['coucou1','coucou2']);

Et là je me chop un Ordinal type required ??

Ce qui fait que 1 je ne sais meme pas si ma procédure de remplissage fonctionne 2 impossible de rempli mon combo.

Pouvez-vous m'aider ?

[BuzzLeclaire]

Je me reponds tout seul,

j'ai fais cela dan sma procédure appelante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var
  Tableau: Choix;
begin
  // On rempli la Combobox opération
  SetLength(Tableau,3);
  Tableau[0] := 'Ajouter';
  Tableau[1] := 'Remplacer';
  Tableau[2] := 'Supprimer';
  RempliComboOperation(Sender,ComboOperation,Tableau);
 
end;

Qu'est ce que je pourrais améliorer ou ai-je oublié certaine chose?

[exoseven]

cela t'apporte quoi un array de string par rapport à une simple TStringList ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
List:=TStringList.create;
try
  with List do
  begin
   add('Ajouter');
   add('Remplacer');
   add('Supprimer');
  end;
  ComboBox1.items.AddStrings(list);
finally
  list.free;
end;

et même pourquoi ne pas remplir directement ta combo ?

Code :

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

1
2
3
4
 
combo.items.add('Ajouter');
combo.items.add('Remplacer');
combo.items.add('Supprimer');

[Aka Guymelef]

Bonjour, moi j'aurai fait comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure StringArrayToList(AList: TStrings; const AStrings: array of string);
var
 Cpt: Integer;
begin
  for Cpt := Low(AStrings) to High(AStrings) do
   AList.Add(AStrings[Cpt]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringArrayToList( ComboBox1.Items, ['coucou1', 'coucou2'] );
end;

[BuzzLeclaire]

Salut,

Exoseven :

pourquoi ne pas remplir directement ta combo ?

Tout simplement car ma combo change selon certain choix, elle change de contenue selon un choix.

Aka Guymelef : Effectivement je préfère 100 fois ta méthode à la mienne, mais j'arrivais pas à envoyer entre [] des valeurs strings.

Bravo et merci.

[Aka Guymelef]

Si tu veux essayer de comprendre ton erreur, je t'invites à consulter la notion de tableau ouvert en Delphi