Combobox con indice y valor

[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

[Stereo100]

Por si a alguien le puede servir , en lazarus para cargar el combobox con un item y su valor correspondiente de una BD se hace así:

Código Delphi [-]
    Combobox1.Clear;
    SQLQuery1.SQL.Text := 'SELECT * FROM users';
    SQLQuery1.Open;
    while not SQLQuery1.EOF do
    begin
      Combobox1.Items.AddObject(SQLQuery1.FieldByName('UserName').AsString, TObject(SQLQuery1.FieldByName('ID').AsInteger));
      SQLQuery1.Next;
    end;
    SQLQuery1.Close;

Luego para recuperar el ID según el item elegido del combobox1 se hace:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ShowMessage('el ID es: '+inttostr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])));
end;

Y para una vez cargado los valores en el combobox1 deseamos comenzar con el primer item seleccionado, podemos usar este code:

Código Delphi [-]
ComboBox1.ItemIndex:=0;

Usando Lazarus 1.6 (32bits) + Win8.1x64 + Sqlite
Saludos hermanos

[Rocio90]

usa el método

.Free