Paires nom / Valeur dans une liste déroulante

Si vos valeurs sont des nombres entiers:
Diviser les paires nom /valeur, stocker les noms dans les cordes de la zone de liste déroulante et les valeurs dans les objets correspondants.

  for i := 0 to List.Count - 1 do
    ComboBox.AddItem(List.Names[i], TObject(StrToInt(List.ValueFromIndex[i], 0)));

De cette façon, vous pouvez continuer à utiliser vos contrôles de manière générique et ont encore de la valeur disponible à travers:

Value := Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]);

Cette approche peut également être utilisé pour les listes des autres objets. Par exemple, un TObjectList contenant TPerson des instances de l'objet:

var
  i: Integer;
  PersonList: TObjectList;
begin
  for i := 0 to PersonList.Count - 1 do
    ComboBox.AddItem(TPerson(PersonList[i]).Name, PersonList[i]);

et retrouver les TPerson de l'élément sélectionné par:

Person := TPerson(ComboBox.Items.Objects[ComboBox.ItemIndex]);

---

Mise à jour

Une meilleure façon - et l'un ne dépend pas de les valeurs sont des nombres entiers - est à pré-traiter la Liste, en mettant les valeurs dans une classe simple et ajout d'instances de celle-ci à la Liste des Objets.

Simple étendu RTTI base - classe wrapper:

type
  TValueObject = class(TObject)
  strict private
    FValue: TValue;
  public
    constructor Create(const aValue: TValue);
    property Value: TValue read FValue;
  end;

  { TValueObject }

constructor TValueObject.Create(const aValue: TValue);
begin
  FValue := aValue;
end;

Si vous utilisez un pré-D2010 version de Delphi, il suffit d'utiliser string au lieu de TValue.

Pré-traitement de la liste:

// Convert the contents so both the ComboBox and Memo can show just the names
// and the values are still associated with their items using actual object
// instances.
for idx := 0 to List.Count - 1 do
begin
  List.Objects[idx] := 
    TValueObject.Create(List.ValueFromIndex[idx]);

  List.Strings[idx] := List.Names[idx];
end;

Le chargement de la liste dans la zone de liste déroulante est maintenant une simple affectation:

// Load the "configuration" contents of the string list into the combo box
ComboBox.Items := List; // Does an Assign!

Ne garder à l'esprit que, en interne, cela ne une de céder, de sorte que vous mieux vous assurer que le combo n'a plus accès aux instances de sa liste des objets avant de vous gratuit Liste.

Obtenir le nom et la valeur de la liste:

begin
  Name_Text.Caption := List.Items[idx];
  Value_Text.Caption := TValueObject(List.Objects[idx]).Value.AsString;
end;

ou de la zone de liste déroulante:

begin
  Name_Text.Caption := ComboBox.Items[idx];
  Value_Text.Caption := TValueObject(ComboBox1.Items.Objects[idx]).Value.AsString;
end;

La même information avec explication plus détaillée peut être trouvée sur mon blog: TL;DR version de Paires Nom /Valeur dans les zones de liste modifiables et proches disparus

OriginalL'auteur Marjan Venema

Je suis d'accord avec Marjan Venema la solution, car il utilise déjà la prise en charge intégrée pour stocker des objets dans une TStringList.

J'ai aussi traité ce et j'ai d'abord tiré mon propre composant combobox à l'aide d'une version remaniée de la posté la solution ci-dessus avec "csOwnerDrawFixed". J'ai vraiment besoin de stocker un IDENTIFIANT (généralement à partir d'une base de données) avec un texte. L'ID serait caché à l'utilisateur. Je pense que c'est un scénario commun. Le ItemIndex est simplement utilisé pour récupérer des données à partir de la liste, il n'est pas vraiment significatif de la variable, comme dans la posté exemple ci-dessus.

Donc, mon idée était de concaténer les ID avec l'affichage de texte, séparés par un "#" par exemple, et de remplacer DrawItem() de sorte qu'il ne serait que de la peinture le texte avec l'ID dépouillé. J'ai étendu ce pour garder plus d'un ID, sous la forme "Nom#ID;var1;var2" par exemple. "Michael Simons#11;true;M". DrawItem() serait dépouiller de tout ce qui suit #.

Maintenant, c'est bon pour commencer, quand vous avez quelques éléments dans une liste déroulante. Mais lorsque l'on traite avec une liste plus large, le défilement de la liste déroulante fait un usage intensif du PROCESSEUR, comme à chaque élément de tirage, le texte doit être dépouillé.

La deuxième version que j'ai fait utilisé la méthode AddObject. Procédant à des échanges de CPU pour un peu plus de la consommation de mémoire, mais C'est un commerce équitable, parce que les choses ont été beaucoup plus vite.

Texte que voit l'utilisateur est stockée normalement dans la liste déroulante.Les éléments et toutes les autres données sont stockées dans une TStringList associés à chaque élément. Pas besoin de surcharger DrawItem, de sorte que vous pouvez tirer d'eg. TmxFlatComboBox et de garder son look plat.

Voici certaines des fonctions les plus importantes de la dérivée de la composante:

procedure TSfComboBox.AddItem(Item: string; Lista: array of string);
var ListaTmp: TStringList;
i: integer;
begin
ListaTmp:= TStringList.Create;
if High(Lista)>=0 then
begin
for i:=0 to High(Lista) do
ListaTmp.Add(Lista[i]);
end;
Items.AddObject(Item, ListaTmp);  
//ListaTmp.Free; //no freeing here! we override .Clear() also and the freeing is done there
end;
function TSfComboBox.SelectedId: string;
begin
Result:= GetId(ItemIndex, 0);
end;
function TSfComboBox.SelectedId(Column: integer): string;
begin
Result:= GetId(ItemIndex, Column);
end;
function TSfComboBox.GetId(Index: integer; Column: integer = 0): string;
var ObiectTmp: TObject;
begin
Result:= '';
if (Index>=0) and (Items.Count>Index) then
begin
ObiectTmp:= Items.Objects[Index];
if (ObiectTmp <> nil) and (ObiectTmp is TStringList) then
if TStringList(ObiectTmp).Count>Column then
Result:= TStringList(ObiectTmp)[Column];
end;
end;
function TSfComboBox.SelectedText: string;
begin
if ItemIndex>=0
then Result:= Items[ItemIndex]
else Result:= '';    
end;
procedure TSfComboBox.Clear;
var i: integer;
begin
for i:=0 to Items.Count-1 do
begin
if (Items.Objects[i] <> nil) and (Items.Objects[i] is TStringList) then
TStringList(Items.Objects[i]).Free;
end;
inherited Clear;
end;
procedure TSfComboBox.DeleteItem(Index: Integer);
begin
if (Index < 0) or (Index >= Items.Count) then Exit;
if (Items.Objects[Index] <> nil) and (Items.Objects[Index] is TStringList) then
TStringList(Items.Objects[Index]).Free;
Items.Delete(Index);
end;

Dans les deux versions, toutes les données (même ID) sont représentés comme des chaînes de caractères, parce que cela rend les choses plus générales, de sorte que quand vous les utilisez, vous devez faire beaucoup de StrToInt et vice versa conversions.

Exemple d'utilisation:

combo1.AddItem('Michael Simons', ['1', '36']); // not using Items.Add, but .AddItem !
combo1.AddItem('James Last', ['2', '41']);
intSelectedID:= StrToIntDef(combo1.SelectedId, -1); // .ItemIndex would return -1 also, if nothing is selected
intMichaelsId:= combo1.GetId(0);
intMichaelsAge:= combo1.GetId(0, 1); // improperly said GetId here, but you get the point
combo1.Clear; // not using Items.Clear, but .Clear directly !

Aussi, un

GetIndexByValue(ValueToSearch: string, Column: integer = 0): integer

méthode est utile, afin de récupérer l'index de toute pièce d'identité, mais cette réponse est déjà trop long pour le poster ici.

En utilisant le même principe, vous pouvez également dériver une coutume ListBox ou CheckListBox.

OriginalL'auteur talereader