array of string pour items Combobox

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:

---

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:

---

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 ?

Je me reponds tout seul,

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

Code:

---

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?

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

Code:

---

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:

---

1 2 3 4

combo.items.add('Ajouter'); combo.items.add('Remplacer'); combo.items.add('Supprimer');

---

Bonjour, moi j'aurai fait comme ceci :

Code:

---

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;

---

Salut,

Exoseven :

Citation:

---

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. :ccool:

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