Items de Combobox con Tabla Paradox

[lKinGl]

Salud2 amigos foristas.

quisiera saber como llenar un combobox con los datos del campo de una tabla en paradox

estoy intentando y llevo este código

Código Delphi [-]
Table1.First;
   while Table1.Eof do
      begin
         combobox1.Items.Add(Table1.FieldValues['medida']);
      end;

la conexion es esta

Código Delphi [-]
table1.databasename:=ExtractFilePath(application.ExeName)+'Data';
table1.TableName:='medidas';
table1.open;

Gracias adelantadas

[marcoszorrilla]

Table1.First;
while Table1.Eof do
begin
combobox1.Items.Add(Table1.FieldValues['medida']);
Table1.Next;
end;

No obstante si utilizas un DblookUpComboBox te ahorrarías todo el código.

Un Saludo.

[lKinGl]

marcoszorrilla muchisimas gracias por responder pero tu solucion no me ha funcionado no se por que se comporta igual que como yo lo tenia, tengo windows vista sp1 tendrá eso algo que ver?

se aceptan otras soluciones

y no apliqué el DblookUpComboBox por que no se como se usa

ahora lo tengo así

Código Delphi [-]
  form1.Table2.First;
  while form1.Table2.Eof do
    begin
      combobox1.Items.Add(form1.Table2.FieldValues['medida']);
      form1.Table2.Next;
    end;

[lKinGl]

porfa necesito saber :S:S:S gracias adelantadas

[lKinGl]

waaaaaa no consigo lograrlo :S

[[egostar]]

Empezado por lKinGl

porfa necesito saber :S:S:S gracias adelantadas

Empezado por lKinGl

waaaaaa no consigo lograrlo :S

Pero, te da algun error, o que es lo que pasa, sin información es dificil ayudar.

Salud OS

[lKinGl]

no da error, ni nada, es como si pusieras un combobox en un formulario sin codificar asi de simple :S

este es mi codigo

Código Delphi [-]
form1.Table2.First;
  while form1.Table2.Eof do
    begin
      combobox1.Items.Add(form1.Table2.FieldValues['medida']);
      form1.Table2.Next;
    end;

[[egostar]]

Ah vaya, ya veo el problema

Código Delphi [-]
  form1.Table2.First;
  while not form1.Table2.Eof do begin
    combobox1.Items.Add(form1.Table2.FieldByName('medida').AsString);
    form1.Table2.Next;
  end;

Pequeño detalle, el barrido de la base solo la estas haciendo cuando es fin de archivo y debe ser al contrario, cuando NO sea fin de archivo.......

Edito, otro detalle que veo es el FieldValues, yo usaría FieldByName('medida').AsString

Salud OS

[lKinGl]

jajajaja dios mio que pena gracias por tu ayuda amigo

[Marwuinh]

Podrias indicar como quedo al final lo que hiciste

[lKinGl]

Empezado por Marwuinh

Podrias indicar como quedo al final lo que hiciste

Salu2 Marwuinh, mira yo lo hago de esta forma coloco 1ero que nada 1 componente Timer1 ok doy doble click y ahi coloco este código:

Código Delphi [-]
 if ComboBox#.Text='Seleccione' then
    begin
      ComboBox#.Clear;
      ComboBox#.Text:='Seleccione ';
      Table#.First;
        while not Table#.Eof do
          begin
            combobox#.Items.Add(Table#.FieldValues['campo_clave']);
            Table#.Next;
          end;
    end;
  exit;

eso es todo, hazlo y nos cuentas como te fué salu2

[Marwuinh]

Si hice lo que me dijste y realmente funciona, gracias

[lKinGl]

me alegro haberte ayudado amigo...