Discussion :

[Andry]

Salut ,

Pour alimenter un comboBox via une BDD, j'utilise la methode AddObject pour le remplir avec la description et la clé primaire (entier) d'une Table comme ceci :

Code :

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

1
2
3
4
5
6
 
While Not IBQUERY.eof do
begin
   Combo.AddObject(FieldByName('DESC').Asstring,Pointer(FieldByName(ID).Asinteger));
   Next;
end;

je peux avoir l'ID correspondant à la ligne selectionné par ceci

Code :

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

1
2
 
 Id := Integer(combo.Items.Objects[combo.itemIndex]);

Imaginons que je connais Id et j'aimerais retrouver l'item correspondant à Id.
J'ai bidoulé une solution en parcourant et testant les items du combo,

Code :

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

1
2
3
4
5
6
7
8
9
 
 For i := 0 to Combo.Items.Count -1 do
 begin
   if  Integer(combo.Items.Objects[i]) =  Id then
   begin
      Desc :=  Combo.Items[i];
      break;
   end;   
 end

mais c'est carrément long s'il y a pas mal d'items.
Est ce que quelqu'un a une suggestion

Merci

[Bloon]

Pourquoi ne pas faire une requête sur la base pour récupérer le libellé correspondant ?

Sinon, autre possibilité : tu stockes tes ID dans un TStringList trié :

Code :

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

1
2
3
4
5
6
7
8
While Not IBQUERY.eof do 
begin 
  // Associe l'ID à l'indice dans la combo
   listeTriee.AddObject(FieldByName(ID).AsString,pointer(combo.Items.Count));
 
   Combo.AddObject(FieldByName('DESC').Asstring,Pointer(FieldByName(ID).Asinteger)); 
   Next; 
end;

en supposant que ta combo ne soit pas triée, sinon les indices ne seront plus bons. Si tu veux la trier, trie la requête qui l'alimente.

Bloon

[edam]

une question: Pointer(FieldByName(ID).Asinteger)) point sur quoi exactement?
si sur une donnée qui est une résultat d'une requete et si la requete change? alors... c'est le crache
peut être que je

[Andry]

Salut,

- A Bloon :
Faire une nouvelle requête est la solution facile mais, j'essaie de speeder mes executions.
- A eadm,
Pointer(...) est à mon avis un Cast tout comme Integer(....).

En faites, j'ai trouvé comment faire :

Code :

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

1
2
 
Combo.ItemIndex := Combo.Items.IndexOfObject(Pointer(Id));

Merci à vous tous

[AlexB59]

Bonjour,

ce sujet m'interresse. Je voulais le faire remonter pour savoir si Andry avait trouvé une solution ?

Merci d'avance.

[Andry]

Bonjour,

ce sujet m'interresse. Je voulais le faire remonter pour savoir si Andry avait trouvé une solution ?

Merci d'avance.

AlexB59,
La solution que j'ai trouvé est dans mon dernier post la haut.
Mais, ceci ne marche que si l'identifiant est un entier.
Sinon, explique ton problème.
A+

[plante20100]

Bonjour à tous,

Je fais remonter ce sujet parce que j'ai une question. Pour quoi dis-tu que celà ne marche que si l'identifiant est un entier.
J'ai exactement la meme situation que toi sauf que moi l'identifiant est un string... et en effet ca ne marche pas. Il ne me trouve pas l'objet.

Est ce que tu as une idée pour contourner le problème?

Vince

[Andry]

Salut,
Je pense que ceci est lié au fait que avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
 
While Not IBQUERY.eof do 
begin 
   Combo.AddObject(FieldByName('DESC').Asstring,Pointer(FieldByName(ID).Asinteger)); 
   Next; 
....
....
Combo.ItemIndex := Combo.Items.IndexOfObject(Pointer(Id)); 
end;

il y a un cast d'un entier vers un pointeur, et etant donné que les deux sont codé en 32Bits, ça passe, et l'inverse aussi marche.
Mais je ne sais pas trop pourquoi ça ne passe pas avec un String, du moins , je n'ose pas trop m'aventurer.

A+

[LadyWasky]

Par curiosité, tu peux te retrouver avec combien d'items dans ta combobox ?

Parce que si tu en as vraiment beaucoup tu ne vas pas avoir 36000 solutions :

- d'abord Quicksort sur tes id d'entiers, en gardant une correspondance entre tes ids et tes items avec un tableau à deux colonnes (ID et pointeur sur Item)
- puis recherche dychotomique.

sincèrement je ne vois pas ce qui pourrait être plus optimisé...

[LadyWasky]

Bonjour à tous,

Je fais remonter ce sujet parce que j'ai une question. Pour quoi dis-tu que celà ne marche que si l'identifiant est un entier.
J'ai exactement la meme situation que toi sauf que moi l'identifiant est un string... et en effet ca ne marche pas. Il ne me trouve pas l'objet.

Est ce que tu as une idée pour contourner le problème?

Vince

J'avais proposé quelque chose sur le forum, ici :
http://www.developpez.net/forums/vie...bobox&start=15

[Graffito]

Bonjour,

La solution IndexOfobject ne peut marcher qu'avec des éléments "simples" (byte, char, integer, pointer) mais pas avec des objets (strings, tstringlist, ...).

C'est du au fait que la property "Objects" contient des pointeurs.
On peut donc "caster" les pointers avec des éléments simples (4 octets max).
Lorsqu'il s'agit de pointeurs de string (ou de tout autre objet), il faudrait pour avoir un résultat connâitre l'addresse de la string (ou de l'objet)recherché(e), alors que ce que l'on on a est son contenu.

[jleg]

Bonjour,

Il y a une solution pour le stockage des chaines dans un TStrings. Il faut effectivement passer par un pointeur intermédiaire.

Voilà la solution :

1- On stocke la valeur chaîne

Code :

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

Combo.Items.addObject('abcd', TObject(Longint(NewStr('toto'))));

2- On lit la valeur chaîne de l'item sélectionné

Code :

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

str := PString(Combo.Items.Objects[Combo.ItemIndex])^;

3- Ne pas oublier de détruire les objets crées (dans le OnDestroy, par exemple)

Code :

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

1
2
For i := 0 to Combo.Items.Count - 1 do
  DisposeStr(PString(combo.Items.Objects[i]));

Cela fonctionne, je l'utilise