Recorrer tabla y asignar Items a comboBox

[DANIEL1818]

Hola foro, espero que anden bien!

Esta vez lo que necesito es recorrer una tabla de productos y asignar cada nombre de producto a un comboBox. Lo que hice fue hacer:

Código Delphi [-]
procedure TForm5VerOfertas.FormActivate(Sender: TObject);
var
 miNombre: string;
begin


  miNombre:= Form1.Label7.Caption;   
  DM.Subastas.Open;
  DM.Subastas.Prior;
  while not DM.Subastas.eof do begin
    if(DM.Subastas.FieldByName('nombre_usuario').AsString = miNombre) and (DM.Subastas.FieldByName('fecha_fin').AsDateTime < Date) then
      ComboElegirSubasta.Items.Add(DM.Subastas.FieldByName('titulo').AsString);
     DM.Subastas.Next;
  end;

end;

--EL PROBLEMA:

Esto me lo agrega en el comboBox uno abajo del otro, pero el problema es que NO me lo agrega de la forma: en el itemIndex 0 esta el producto 1, en el itemIndex 1 esta el producto 2 y asi.. Lo que hace esto es agregarme en el itemIndex 0 todos los nombres de los productos juntos, OSEA en el itemIndex 0 = producto1producto2 , lo mismo para los demas itemIndex ( ya que lo probe con un edit al lado para ver que era lo que me devolvia ).

ENTONCES : como hago para recorrer la tabla y asignar al itemIndex 0 el producto 1, en el itemIndex 1 el producto 2, y asi sucesivamente??porque no le doy pie con bola.

LES AGRADEZCO MUCHISIMO SUS AYUDAS!!

[ecfisa]

Hola Daniel.

La forma genérica de cargar un ComboBox es,

Código Delphi [-]
  ComboBox1.Clear;
  with tuDataSet do
  begin
    Open;
    while not Eof do
    begin
      if ( una_condición ) then  // Opcional
        ComboBox1.Items.Add(FieldByName('TU_CAMPO').AsString);
      Next;
    end;
  end;

pero, ¿ Que componente es Subastas ?

No te pregunto el nombre que le diste a la tabla en la bd ni el gestor de bd, me refiero a el nombre de la clase del componente Subastas.

Saludos

[DANIEL1818]

Antes que nada muchas gracias por tu respuesta,esa componente es un ADOTable que le di el nombre de "subastas" y que se encuentra en mi modulo de datos, espero que me hayas entendido! Ojala me puedas dar una ayuda!

[Casimiro Notevi]

Empezado por DANIEL1818

Ojala me puedas dar una ayuda!

¿Qué más ayuda quiéres, DANIEL1818? si te ha puesto el código, solamente tienes que sustituir "tuDataset" por el nombre del tuyo (dm.subasta)

[ecfisa]

Empezado por Casimiro Notevi

¿Qué más ayuda quiéres, DANIEL1818? si te ha puesto el código, solamente tienes que sustituir "tuDataset" por el nombre del tuyo (dm.subasta)

Ciertamente...

Daniel, mi pregunta sobre el componente apuntaba a que resulta mas simple de ver (y seguramente mas eficiente) filtrar los resultados antes de cargar el combo, para tu caso:

Código Delphi [-]
...
  with DM.Subastas do
  begin
    Close;
    Open;
    // Filtrar
    Filtered := False;
    Filter   := Format('NOMBRE_USUARIO = %s AND FECHA_FIN < %s', [MiNombre, DateToStr(Date)]);
    Filtered := True;

    // Copiar resultado al combo
    DisableControls;
    try
      while not Eof do
      begin
        ComboBox1.Items.Add(FieldByName('TITULO').AsString);
        Next;
      end;
    finally
      EnableControls;
      Filtered := False;  // Quitar el filtro
    end;
  end;
  ComboBox1.ItemIndex := 0;
end;

Saludos

[DANIEL1818]

A ver si me explico mejor, con el código que hice yo y el que me pasaste me lo agrega mal, es decir, si mi tabla tiene dos productos, mesa y silla, recorro la tabla y con el código que me pasaste y el que había hecho antes yo me pasa lo siguiente: cuando le pido que me imprima a través de un Edit lo que tiene el comboBox en la posición cero, lo imprime de esta forma: mesasilla. Esto tambien me pasa cuando le pido que me imprima lo que tiene el comboBox en la posición 1, me explico? Ese es el problema que no puedo resolver, por eso pedí si me podían dar una ayuda. Disculpen si moleste!