Cargar combobox con datos de tabla

[loadminds]

gracias bluesteel x la pronta respuesta, acabo de hacerlo andar con un combobox desplazandome en la dbgrid y cargandolo de a uno, funciona bien, pero no logro evitar que muestre los repetidos, hay formas de preguntar si el item ya existe dentro del combobox?el codigo me quedo mas asi:
procedure TForm1.CcatChange(Sender: TObject);
begin
With dbgrid1.datasource.dataset do begin
First;
While not eof do begin
{aca seria posible preguntar si el codigo ya esta en el combobox?}
Ccat.Items.Add(FieldByName('Categoria').AsString);
Next;
end;
end;
end;

funcionar funciono, no se si sea la forma correcta de hacerlo xq estoy arrancando recien, pero el problema es solo mostrar 1 vez cada categoria, es decir no ver repetidos, se me ocurrio preguntar x cada valor que agrego a items, pero no se como hacer la comparacion, Gracias!!

[*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