Discussion :

[Delphi-ne]

Bonjour,

Je voudrais utiliser un TCombobox et la charger avec Items.AddObject pour inclure à la fois le libellé visible et le code interne correspondant

Si je charge les informations 'en dur' ce la fonctionne très bien

Code :

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

1
2
3
   PO_Combo.Items.Clear;
   PO_Combo.Items.AddObject('NORD',        TObject('59'));
   PO_Combo.Items.AddObject('OISE',         TObject('60'));

Je récupère mon code avec

Code :

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

1
2
3
4
5
6
7
function TDM.DM_ValeurCombobox(PO_Combo  : TCombobox) : String;
Begin
   Result := '';
   if PO_Combo.ItemIndex >= 0 then begin
      Result := String(PO_Combo.Items.Objects[PO_Combo.ItemIndex]);
   end;
End;

Par contre si les informations proviennent d'un recordset je n'arrive pas à retrouver mes valeurs

Code :

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

1
2
3
4
5
6
7
  While Not QUERY_ADO.EOF do Begin
        LC_Libelle := QUERY_ADO.Fields[0].AsString;
        LC_Valeur  := QUERY_ADO.Fields[1].AsString;
        PO_Combo.Items.AddObject(LC_Libelle, TObject(LC_Valeur));
        if LC_Valeur = PC_Valeur then LN_Index := PO_Combo.Items.Count - 1;
        QUERY_ADO.Next;
  End;

Merci de vos conseils parce que je ne vois pas très bien la différence

[Paul TOTH]

alors, d'abord c'est très mal d'utiliser AddObject() on y stocke généralement n'importe quoi et surtout ce qu'il ne faut pas...c'est le cas de ton exemple d'ailleurs.

tu peux associer une StringList à la combo.

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
 
// avec SL_Code: TStringList
begin
  PO_Combo.Items.Clear;
  SL_Code.Clear;
  PO_Combo.Items.Add('NORD');
  SL_Code.Add('59');
  PO_Combo.Items.AddObject('OISE');
  SL_Code.Add('60');
end;
 
function TDM.DM_ValeurCombobox(PO_Combo  : TCombobox) : String;
Begin
   Result := '';
   if PO_Combo.ItemIndex >= 0 then begin
      Result := SL_Code[PO_Combo.ItemIndex];
   end;
End;

[SergioMaster]

Bonsoir,

Pour l'astuce (astuce dans Delphi About.Com ) concernant ces Objets il me semble qu'il faut que l'objet soit un entier

[Delphi-ne]

Merci

L'idée d'une TStringList parallèle à la combobox est effectivement une solution
Le problème est ensuite lorsqu'il y a beaucoup de combobox dans l'écran

La solution de SergioMaster fonctionne même avec des chaînes

J'ai déclaré une classe

Code :

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

1
2
3
4
5
6
7
8
Type
   TLSTCOMBO = class
                   private
                       fCode : string;
                   public
                   property Code: string read fCode;
                   constructor Create(const Code : string);
               end;

Un constructeur

Code :

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

1
2
3
4
constructor TLSTCOMBO.Create(const Code : string) ;
 begin
   fCode := Code;
 end;

Pour charger la combobox la méthode ressemble à celle que j'utilisais

Code :

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

1
2
3
4
5
6
7
  While Not QUERY_ADO.EOF do Begin
        LC_Libelle := QUERY_ADO.Fields[0].AsString;
        LC_Valeur  := QUERY_ADO.Fields[1].AsString;
        PO_Combo.Items.AddObject(LC_Libelle, TLSTCOMBO.Create(LC_Valeur));
        if LC_Valeur = PC_Valeur then LN_Index := PO_Combo.Items.Count - 1;
        QUERY_ADO.Next;
  End;

[Paul TOTH]

oui, mais ce que je n'aime pas dans cette approche c'est que l'objet perd son type, et qu'il faut gérer la libération à la main de chacune de ses instances...avec le StringList on a Clear ou Free et le tour est joué.

[Delphi-ne]

qu'il faut gérer la libération à la main de chacune de ses instances

C'est exact et, pour l'instant, je ne m'en suis pas encore occupé, j'ai voulu avancer dans le développement.
Par contre tous les écrans de mon applications appartiennent à une classe que j'ai dérivée de TForm. Je pense donc ajouter un code dans le onQueryClose qui va lire les composants et si ce sont des combobox libérer l'object attaché à chaque item

Je publierai le code dans ce topic