Problème Combobox - renvoyer une valeur

**diliodi** · 29/01/2012, 20h12

Bonjour à tous, je débute en programmation et je cherche comment, dans une Combobox, sélectionner une valeur mais en envoyer une autre qui ne figure pas dans Items. (exemple janvier,février,mars... dans les items et renvoyer 1 pour janvier, 8 pour février ...).

Merci d'avance pour votre aide ! =)

**liazidf** · 29/01/2012, 22h34

Envoyé par diliodi

Bonjour à tous, je débute en programmation et je cherche comment, dans une Combobox, sélectionner une valeur mais en envoyer une autre qui ne figure pas dans Items. (exemple janvier,février,mars... dans les items et renvoyer 1 pour janvier, 8 pour février ...).

Merci d'avance pour votre aide ! =)

Salut,
soluce:

Code :

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

combobox1.ItemIndex

**diliodi** · 30/01/2012, 12h27

Salut, tout d'abord merci d'avoir répondu à ma question mais "combobox1.ItemIndex" renvois la valeur qui est dans la combobox et non l'autre valeur (ex : janvier dans la combobox doit avoir comme autre valeur 1). Je sais pas si vous comprenez ce que je veux dire :s

**Papy214** · 30/01/2012, 13h54

Il y a un moyen tout simple c'est d'avoir un tableau des éléments en rapport avec le contenu de la combobox. Chaque élément du tableau indicé de 0 à n-1 éléments représente la valeur à renvoyer. Il suffit alors de renvoyer Elements[combobox1.ItemIndex]

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
unit Unit5;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm5 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
var
  Elements: array[0..2] of integer = (1, 2, 3);
 
procedure TForm5.ComboBox1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Elements[ComboBox1.ItemIndex]));
end;
 
procedure TForm5.FormCreate(Sender: TObject);
begin
  inherited;
  ComboBox1.OnClick := nil;
  ComboBox1.Style := csDropDownList;
  ComboBox1.Items.Add('Lundi');
  ComboBox1.Items.Add('Mardi');
  ComboBox1.Items.Add('Mercredi');
  ComboBox1.ItemIndex := 0;
  ComboBox1.OnClick := ComboBox1Click;
end;
 
end.

**ShaiLeTroll** · 30/01/2012, 15h10

diliodi, tu devrais lire l'aide du TComboBox, la réponse de liazidf était déjà un bonne piste

Commeçons par afficher le libellé !

Code :

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

1
2
3
4
if combobox1.ItemIndex >= 0 then
  ShowMessage(combobox1.Items[combobox1.ItemIndex]);
else
  ShowMessage('Pas de Selection');

Ensuite, il faut rappeler que Items c'est une TStrings
et donc Items[] veut dire en réalité Items.Strings[] et qu'il y aussi Items.Objects[].

Le code de Papy214 n'est pas mal mais il est redondant avec une fonctionnalité standard du TStrings, la propriété Objects

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
17
procedure TForm5.ComboBox1Click(Sender: TObject);
begin
  // Integer en 32Bits, NativeUInt en 64bits
  ShowMessage(IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])));
end;
 
procedure TForm5.FormCreate(Sender: TObject);
begin
  inherited;
  ComboBox1.OnClick := nil;
  ComboBox1.Style := csDropDownList;
  ComboBox1.Items.AddObject('janvier', TObject(1));
  ComboBox1.Items.AddObject('février', TObject(8));
  ComboBox1.Items.AddObject('mars', TObject(15));
  ComboBox1.ItemIndex := 0;
  ComboBox1.OnClick := ComboBox1Click;
end;

Evidemment, c'est une solution un peu brutale, mais au lieu de mettre un simple entier, on peut mettre un pointeur vers une donnée plus complexe au besoin !

**Papy214** · 30/01/2012, 15h36

Envoyé par ShaiLeTroll

Le code de Papy214 n'est pas mal mais il est redondant avec une fonctionnalité standard du TStrings, la propriété Objects

La question venait de quelqu'un qui se dit débutant, je suis allé au plus simple :-)

Et la solution tu TObject(1) , ça donne quoi après au niveau libération de mémoire ???

**mick605** · 30/01/2012, 15h41

Envoyé par Papy214

Et la solution tu TObject(1) , ça donne quoi après au niveau libération de mémoire ???

Pas de problemes. Comme nous n'allouons pas manuellement de mémoire, nous n'avons rien a désallouer. TObject(1) "duppe" la propriété en lui faisant croire que le pointeur pointe sur un TObject en adresse mémoire 1, mais la TString n'ira pas désallouer d'elle même ce (faux) TObject.

La désallocation mémoire aurait été nécessaire si, comme Shai le suggere, la propriété pointait sur des données plus complexes.

**ShaiLeTroll** · 30/01/2012, 16h44

Envoyé par Papy214

La question venait de quelqu'un qui se dit débutant, je suis allé au plus simple :-)

Quand, je ne stocke que des Entiers, je préfère aussi ta méthode, j'évite l'utilisation du Object comme stockage 32Bits (surtout si demain c'est 64)
Mais la démo peut donner des idées et fait découvrir le méconnu et sous-employé Objects[]

La Gestion des Items du TComboBox sans passer l'analyse des libellés restent une chose complexe à gérer proprement !
L'utilisation de Objects, je l'encaspule toujours par un gestionnaire de thésaurus, remplissage, lecture et nettoyage passe uniquement par le gestionnaire, ainsi si la ComboBox passe d'une alimentation par valeurs en dur à une alimentation par DB, Ini, XML (pour la gestion multi-langue), je n'ai qu'à changer le gestionnaire mais pas le code appelant !

L'utilisation de Objects évite de maintenir deux listes !

D'ailleurs, au lieu de faire maintenir deux listes, le mieux est de n'en maintenir qu'une seule "Elements" et de faire en sorte que la ComboBox ne fasse que suivre !
On peut aussi faire cela (tapé ici sans test)

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
type
  TMoisEnum = (meJanvier, meFevrier, meMars);
 
const
  Elements: array[TMoisEnum] of record
    Mois: string;
    Numero: Integer;
  end;
  = (
      (Mois: 'janvier'; Numero: 1),
      (Mois: 'février'; Numero: 8),
      (Mois: 'mars'; Numero: 15)
    );
 
procedure TForm5.ComboBox1Click(Sender: TObject);
begin
  if combobox1.ItemIndex >= 0 then
    ShowMessage(IntToStr(PInteger(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^))
  else
    ShowMessage('Pas de Selection');  
end;
 
procedure TForm5.FormCreate(Sender: TObject);
var
  i: TMoisEnum;
begin
  inherited;
  ComboBox1.OnClick := nil;
  ComboBox1.Style := csDropDownList;
 
  for i := Low(i) to High(i) do
    ComboBox1.Items.AddObject(Elements[i].Mois, TObject(@Elements[i].Numero));
 
  ComboBox1.ItemIndex := 0;
  ComboBox1.OnClick := ComboBox1Click;
end;

Cette fois, utilise bien un Pointeur sur Integer, que l'on déguise en TObject
La mémoire, c'est une constante, pas de libération, non plus !

J'espère qu'il n'y pas de faute, n'ayant que C++Builder, je n'ai pas vérifié le code !

Tu noteras le cast passe de Integer() qui transformait la valeur du faux pointeur en entier en PInteger()^ qui transforme le pointeur en pointeur sur entier puis en récupère la valeur !
C'est déjà plus propre, cela supporte en plus le 64Bits !
Je trouve que dans la TStrings, il aurait pu faire une propriété Data[]: Pointer comme dans le TTreeNode, plus ouvert que le TObject !

EDIT : En même temps, Embarcadero fourni un exemple C++ et un exemple Delphi qui est assez brutal avec des reinterpret_cast<> aussi

Il utilise le pointeur comme stockage 32bits pour une TViewStyle, une énumération ! ils sont aussi dégueux que mon exemple précédent

**Papy214** · 30/01/2012, 17h17

C'est vrai qu'il y a mille façons de remplir une combo.

Et bien d'accord avec toi sur cette propriété manquante qui supprimerait bien des questions :-)

Quand à la propriété Objects, je pense qu'elle est effectivement sous-employée parce que les utilisateurs pensent que les listes ne sont là que pour afficher des textes.