Combobox y tquery

[radge]

Buenas ,estoy intentando recoger los registros de una consulta SQL y añadirlos a un combobox , el codigo seria este que funciona correctamente , pero me gustaria poder pasarle 2 valores , uno el que se "muestre" y otro con el que trabajar , ya que dependiendo del valor que selecciones luego volveré a hacer otra consulta SQL.

  q := TQuery.Create (nil);
  q.DatabaseName := MIBD.DatabaseName;
  q.SQL.Clear;
  qCadena := 'SELECT * From tabla';
  q.SQL.Add(qCadena);
  q.open;

  while not q.eof do begin
      combobox1.items.Add(q.FieldByName('campo1').asstring);
      q.next;
  end;

gracias radge

[*Caro*]

Hola radge, puedes utilizar la función AddObjects, digamos que el otro campo es codigo y es de tipo Int:

Código Delphi [-]
   ...........................................
   while not q.eof do begin
      combobox1.Items.AddObject(q.FieldByName('campo1').asstring, TObject(q.FieldByName('codigo').asInteger));
      q.next;
  end;
 
  //Para recuperar el segundo valor
  Codigo := Integer(combobox1.Items.Objects[combobox1.ItemIndex]);

También puedes utilizar el componente DBLookupComboBox que se enlaza directamente con tu dataset.

Saluditos

[*Caro*]

Muevo tu hilo al foro de conexión con base de datos.

Saluditos

[ContraVeneno]

como dice Caro, deberías usar un DBLookupComboBo... esa para mi sería la única opción.