Combobox con indice y valor

[Moises22]

Hola a todos.

He estado mirando y no e encontrado solucion a mi problema. Tengo una aplicacion que conecta con access con ADOConnection dentro de un DataModule y lo que yo quiero hacer es que en ejecucion con un ADOQuery hago una consulta sobre una tabla la cual quiero listar en el TCOMBOBOX. Pero claro mi problema es que añado los registros mostrando el nombre, pero necesito la id de estos nombre porque despues en el onchange hago una consulta dependiendo del item que se haya elegido, evidentemente el campo Id no se corresponde con el index del combobox.

Como podria hacerlo??? (espero que me hayan entendido)

Muchas gracias por adelantado

[luisgutierrezb]

para guardarlo:

Código Delphi [-]
Combobox1.Items.AddObject('Nombre del Item', TOBject(ID)); //donde id es integer
para obtenerlo:
//Id := TInteger(Combobox1.Items.Objects[ComboxBox1.ItemIndex]);//Linea corregida "Tinteger".
Id := Integer(Combobox1.Items.Objects[ComboxBox1.ItemIndex]);

[[Héctor Randolph]]

Hola Moises.

Quiero hacer una sugerencia, descarga esta suite de componentes SMComponents

En particular revisa uno que se llama TSMDBFilterComboBox, este componente tiene las carácteristicas que tú describes. Me refiero a que puedes llenar automáticamente la lista de un ComboBox con los registros de un DataSet y la caja de edición del combo no está ligada con un campo.

Lo principal es que el ComboBox tiene las propiedades FieldDisplay y FieldValue; de esta forma puedes recuperar la información del registro que selecciona el usuario de la lista.

Nota: No hay que confunfirlo con un DBLookUpComboBox, tienen diferentes funcionalidades.

Saludos y que haya suerte.

[Delfino]

Combobox1.Items.AddObject('Nombre del Item', TOBject(ID));

mejor para no tener q liberar los objects :

Código Delphi [-]
Combobox1.Items.Add('Nombre del Item' + '=' + ID)

asi obtienes pares de name=value, y puedes recuperarlo con las mismas propeidades del combo(names, values, valuefromindex, indexofname):

Código Delphi [-]
s := Combobox1.Values['Nombre del Item']

[Moises22]

Gracias por responder, para el caso que en este momento estoy haciendo usare la respuesta que me ha dado luis gutierrezb pero me ha dado el siguiente problema :

Undeclared identifier: 'TInteger' en la linea id:=TInteger(oficinasCombobox1.Items.Objects[oficinasComboBox1.ItemIndex]);

Tambien he hechado un vistazo a la libreria que me ha sugerido hector y me servira de mucho, asi que muchas gractias tb. Y en cuanto a la respuesta de Delfino estaria perfecto, seria la mejor opcion creo, pero no puedo mostrar la id en el combobox.

Espero que me ayudeis con el problema que me da la forma de gutierrezb. Muchas gracias a todos

[sgarcia]

Saludos a todos, como libero los TObject...
GRACIAS

[luisgutierrezb]

para liberarlos

Código Delphi [-]
oficinasCombobox1.Items.Objects[oficinasComboBox1.ItemIndex].Free