Récupérer une string dans un TObject

Bonjour

Je cherche à récupérer la valeur d'une String dans un TObject.

Je charge mes combobox comme ceci

Code:

---

1 2	cb_duree.items.AddObject('22', tobject(2)); cb_duree.items.AddObject('33', tobject(3));

---

Et je récupére la valeur avec

Code:

---

integer(cb_duree.Items.Objects[0])

---

Ca ça fonctionne. Ce que je voudrais pouvoir faire c'est charger avec des strings

Code:

---

1 2	cb_duree.items.AddObject('22', tobject('val2')); cb_duree.items.AddObject('33', tobject('val3'));

---

Mais je ne sais pas transtyper. String(cb_duree.Items.Objects[0]) provoque une erreur.

Si la chaîne ne dépasse pas 4 caractères (= 4 octets, la taille d'un pointeur) ou 2 en unicode, tu peux faire quelque chose comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

type TData = array[0..3] of char;   procedure TForm1.FillCombo; var Data :TData; begin Data := 'val2'; ComboBox1.Items.AddObject('22', TObject(Data)); Data := 'val3'; ComboBox1.Items.AddObject('33', TObject(Data)); Data := '??'#0; ComboBox1.Items.AddObject('?', TObject(Data)); end;   procedure TForm1.ComboBox1Change(Sender: TObject); begin with TComboBox(Sender) do ShowMessage(TData(Items.Objects[ItemIndex])); end;

---

Mais si la chaîne est plus longue, c'est impossible ;). Passe dans ce cas par un array of string et stock l'index. (Comme ton entier précédemment)

Merci

Si je crée un array of string à quoi correspondra l'array : à l'ensemble des combobox ou à chacune des combobox (1 array par combobox) ?

La solution qui consiste à gérer un array of string (ou une TStringList) en parrallèle de ma combobox ne me plaît vraiment

Il faut bien à un moment ou à un autre allouer de la mémoire pour stocker ces chaînes :).

Quant à un ou plusieurs tableaux, libre à toi ;). Que le premier élément du combo pointe sur l'élément 125, n'est pas un problème. Mais personnellement, je créerais un tableau par combo.

Est-ce que le contenu est constant ou dynamique ?

Par principe on va dire dynamique
C'est une façon de développer que je voudrais changer
Pour l'instant je charge dans l'Item le libellé, une chaine d'espaces assez longue et la valeur cachée. Le style de combo suffit à ce que cela reste caché.
Ca marche parfaitement mais je ne trouve pas cela très élégant et comme je dois commencer un nouveau projet je réfléchis à une forme d'évolution

Alors sur ce principe, gère manuellement la repeinture. Mets le Style de ton Combo à csOwnerDrawFixed et code tes chaînes Text=Valeur ;).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm2.FormCreate(Sender: TObject); begin //Remplissage du ComboBox "Text=Valeur" (Peut bien sûr être statique) ComboBox1.Items.Add('22=val2'); ComboBox1.Items.Add('33=val3'); end;   procedure TForm2.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with TComboBox(Control), Canvas do begin //Rempli le rectangle FillRect(Rect); //Ajoute des marges InflateRect(Rect, -2, -2); //Ecrit la partie avant "=" TextOut(Rect.Left, Rect.Top, Items.Names[Index]); end; end;   procedure TForm2.ComboBox1Change(Sender: TObject); begin //Ne renvoi que la partie après "=" with TComboBox(Sender) do ShowMessage(Items.ValueFromIndex[ItemIndex]); end;

---

Effectivement je n'avais pensé à jouer sue le paint
Cela me sembl plus simple que l'objet

Merci