Capturar datos de un combobox

[lucas05]

Hola, podrían ayudarme con el siguiente problema, tengo una tabla que contiene dos columnas: id y nombre.
Lo que hago es mostrar el contenido de la columna nombre en un ComboBox, utilizando el siguiente codigo:

Código Delphi [-]
 for i:=1 to ZQuery1.RecordCount do
    begin
      ComboBox1.AddItem(ZQuery1.fieldbyname('nombre').AsString,ComboBox1);
      ZQuery1.Next;
   end;

Lo que intento hacer es que al seleccionar un dato del ComboBox, se guarde en una variable el dato seleccionado y en otra variable el id que corresponde a ese dato.

Espero haber sido claro, desde ya muchas gracias.

[cancun]

Hola


Deberias usar TDBLookUpComboBox asignas la propiedad ListSource el DataSource del ZQuery el Campo Nombre a ListField y ID a KeyField, en el evento OnClick pones

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
  A:=DBLookupComboBox1.KeyValue;     // ID seleccionado
  B:=DBLookupComboBox1.Text;          // Nombre seleccionado
end;

Saludos

[Neftali [Germán.Estévez]]

Otra opción es utilizar el puntero del segundo parámetro para almacenar un entero. De esa forma aprovechas ese valor. Piensa que al final el puntero no es más que un número.

Puede añadir los valores al combobox de esta forma:

Código Delphi [-]
  // en tu caso en segundo valor serían los valores del ID
  ComboBox1.AddItem('Lunes', Pointer(1234));
  ComboBox1.AddItem('Martes', Pointer(34));
  ComboBox1.AddItem('Miercoles', Pointer(9999));

Para recuperar los valores del ID, del elemento seleccionado puedes hacer lo siguiente:

Código Delphi [-]
  // Hay algo seleccionado
  if (ComboBox1.ItemIndex <> -1) then begin
    // puntero al objeto del elemento seleccionado
    p := Pointer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
    // Obtenemos el entero almacenado
    i := Integer(p);
    // lo pintamos en un label
    Label1.Caption := IntToStr(i);
  end;

Un saludo.

[lucas05]

Gracias a los dos por su ayuda.

Neftali con respecto a tu solución, funciona bien, pero solo cuando el combobox contiene datos estáticos, en mi caso los datos del combobox son dinámicos ya que vienen de una base de datos.
Como podría adaptarlo para que funcione cuando los datos son dinámicos?

Nuevamente gracias.

[Neftali [Germán.Estévez]]

Empezado por lucas05

Neftali con respecto a tu solución, funciona bien, pero solo cuando el combobox contiene datos estáticos, en mi caso los datos del combobox son dinámicos ya que vienen de una base de datos.
Como podría adaptarlo para que funcione cuando los datos son dinámicos?

No entiendo lo que quieres decir con datos estáticos y datos dinámicos.
Lo que yo te he puesto es un ejemplo, se trata de que utilices el código que has puesto anteriormente para rellenar el combobox:

Código Delphi [-]
 for i:=1 to ZQuery1.RecordCount do
    begin
      ComboBox1.AddItem(ZQuery1.fieldbyname('nombre').AsString,ComboBox1);
      ZQuery1.Next;
   end;

Y tal como añades el nombre, añadas también el ID en el segundo parámetro, tal y como has añadido el primero (pero con un código similar al del ejemplo).

A la hora de recuperar el ID, pues tal y como te he puesto también en el ejemplo, pero con tu ID.
Al final NOMBRE y "Lunes" son cadenas y ID y 1234 son integers. No veo la diferencia...

[lucas05]

Gracias por la ayuda.