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!!