Cargar combobox con datos de tabla

[*Caro*]

Hola loadminds, puedes utilizar la función IndexOf de tu ComBoBox,

Código Delphi [-]
 With dbgrid1.datasource.dataset do begin
  First;
  While not eof do begin
   if Ccat.Items.IndexOf(FieldByName('Categoria').AsString)=-1 then
    Ccat.Items.Add(FieldByName('Categoria').AsString);   
   Next;
  end;

Si recorres el DataSet que esta enlazado a tu DBGrid, también deberías utilizar EnableCOntrol y DisableControl, para que no veas como se mueve entre registros.

Otra cosita estas cargando en el evento OnChange del COmboBox, deberías hacerlo en otro lado, donde solo se ejecute una vez.

También podrías haber hecho otra consulta sobre esa tabla con distinct sobre el campo categoría.

Saluditos

[loadminds]

mil gracias caro, anduvo joya, cargue en el OnActivate del Form y lo carga al ejecutar, lo unico no noto el movimiento entre registros quizas por que son pocos verdad?y no me quedo muy en claro a que hacias referencia con el distinct, gracias de nuevo!!!

[*Caro*]

Empezado por loadminds

cargue en el OnActivate del Form y lo carga al ejecutar, lo unico no noto el movimiento entre registros quizas por que son pocos verdad?y no me quedo muy en claro a que hacias referencia con el distinct, gracias de nuevo!!!

Yo lo haría en el OnShow del formulario, con el OnActivate, se llenara cada vez que tu formulario se active, no notas el movimiento entre registros porque supongo que lo estas cargando en el OnActivate o el OnShow, ademas como dices son pocos, pero fijate a que registro esta apuntando tu DBGrid seguro que es al ultimo.

Sobre el distinct me refería a hacer otra consulta, en otro Query. La consulta sería "Select distinct categoria from tabla".

Saluditos

[loadminds]

claro claro me queda apuntando al ultimo, voy a probar en el Onshow, muchas gracias!!!,la verdad la mejor de las ondas aca, me veran seguido jej saludos!!

[*Caro*]

Empezado por loadminds

claro claro me queda apuntando al ultimo, voy a probar en el Onshow, muchas gracias!!!

El OnShow no te va a solucionar que no apunte al ultimo registro, es solo para que se ejecute una vez tu codigo. Para que no apunte al ultimo cuando recorres tu DataSet debes utilizar EnableControl y DisableControl.

Código Delphi [-]
  
  With dbgrid1.datasource.dataset do begin
  DisableControls; //Deshabilitamos los controles asociados a ese DataSet 
  First;
  While not eof do begin
   if Ccat.Items.IndexOf(FieldByName('Categoria').AsString)=-1 then
    Ccat.Items.Add(FieldByName('Categoria').AsString);   
   Next;
  end;
  EnableControls;//habilitamos nuevamente los controles

Saluditos

[[Lepe]]

Ya sé que el código es sólo un ejemplo, no siempre tenemos que seguirlo a pies juntillas, pero como tendemos a hacer copy & paste, mejor así:

Código Delphi [-]
  
  With dbgrid1.datasource.dataset do begin
  try 
    DisableControls; //Deshabilitamos los controles asociados a ese DataSet 
    First;
    While not eof do begin
     if Ccat.Items.IndexOf(FieldByName('Categoria').AsString)=-1 then
      Ccat.Items.Add(FieldByName('Categoria').AsString);   
     Next;
    end;
  finally
    EnableControls;//habilitamos nuevamente los controles
  end;

Si ocurre un fallo al recorrer todos los registros (una excepción) ya no volvería a mostrarse los registros en los controles DBAware. Con un try... finally se asegura el código.

Saludos

[*Caro*]

Empezado por Lepe

Si ocurre un fallo al recorrer todos los registros (una excepción) ya no volvería a mostrarse los registros en los controles DBAware. Con un try... finally se asegura el código.

Yo lo hago con el Try Finally, como dices solo le estaba dando la idea, pero mejor ponerlo completo , ya que el amiguito esta empezado con delphi .

Saluditos