ayuda con este procedimiento

[microbiano]

hice las modificaciones que comentas sin embargo al ejecutar el programa me manda el sigueinte error:

[Error] f_propuestas.pas(110): Incompatible types: 'Integer' and 'String'


el campo de la base de datos es varchar de 30.


espero comentarios

[*Caro*]

Empezado por microbiano

hice las modificaciones que comentas sin embargo al ejecutar el programa me manda el sigueinte error:

[Error] f_propuestas.pas(110): Incompatible types: 'Integer' and 'String'


el campo de la base de datos es varchar de 30.

Hola microbiano, debes indicarnos la línea de codigo donde te marca el error, yo supongo que es esta, cambia Value por AsString:

Código Delphi [-]
   fpropuestas.cb_clave.Items.Add(fmodulo.Q_licitac2.Recordset.Fields['gpo'].AsString);

Saluditos

[microbiano]

efectivamente es el la siguiente linea que mencionas sin embargo al cambiar el value por AsString me sigue mostrando el mismo mensaje.

[microbiano]

tengo el procedimiento que se supone tendria que cargar los datos en un combobox, para ello tengo el siguiente codigo.

Código Delphi [-]
procedure llena_claves();
  var licitac: variant;
begin
     licitac:='00641321-030-09'; //trim(fpropuestas.txtlicitacion.Text);
     With fModulo.Q_licitac2 Do
     Begin
          Sql.Clear;
          Sql.Add('select licitacion,gpo,gen,esp,dif,var from requerimiento');
          Sql.Add('where licitacion=:licit');
          Parameters.ParamByName('licit').Value:=Trim(Licitac);
          Try
             Open;
             While Not Eof Do
             Begin
                 fPropuestas.cb_clave.Items.Add(Fields['gpo'].Value);
                 Next;
             End;
             Close;
          Except
             On E:EOleException Do
             Begin
                MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
             End;
          End;
     End;

sin embargo al ejecutar el programa me muestra el siguiente error, en la linea de color rojo es decir:

fPropuestas.cb_clave.Items.Add(Fields['gpo'].Value); y este es el error:

[Error] f_propuestas.pas(109): Incompatible types: 'Integer' and 'String'

ya verifique y el tipo de dato de la tabla es varchar de 3, no entiendo por que el error alguien podria ayudarme.

ya intenten con

fPropuestas.cb_clave.Items.Add(Fields['gpo'].AsString);
fPropuestas.cb_clave.Items.Add(Fields['gpo'].asVariant);

pero nada funciona

[rgstuamigo]

El problema que veo es que en la linea que tienes con rojo debes poner el numero de columna y no el nombre , algo así:

Código Delphi [-]
...
While Not Eof Do
 Begin
  {La primer columna tiene indice cero(0),
  la segunda columna tiene indice uno (1)y asi sucesivamente,
  como se quiere cargar el campo "gpo" entonces hacemos asi:}
  fPropuestas.cb_clave.Items.Add(Fields[1].AsString);//se debe cargar como string y no como variant
  Next;
 End;
...

Saludos...

[microbiano]

despues de tanto batallar el problema lo solucione de la siguiente manera por si alguna vez a alguien le puede ayudar este codigo:

Código Delphi [-]
procedure llena_claves();
  var licitac: variant;
begin
     licitac:=trim(fpropuestas.txtlicitacion.Text);
     With fModulo.Q_licitac2 Do
     Begin
          Sql.Clear;
          Sql.Add('select gpo,gen,esp,dif,var from requerimiento');
          Sql.Add('where licitacion=:licit');
          sql.Add('group by gpo,gen,esp,dif,var');
          Parameters.ParamByName('licit').Value:=Trim(Licitac);
          Try
             Open;
             While Not Eof Do
             Begin
                 fpropuestas.cb_clave.Items.Add((fieldByname('gpo').AsString) + ' ' + (fieldByname('gen').AsString) + ' ' + (fieldByname('esp').AsString)+ ' ' + (fieldByname('dif').AsString)+' '+(fieldByname('var').AsString));
                 Next;
             End;
             Close;
          Except
             On E:EOleException Do
             Begin
                MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
             End;
          End;
     End;

end;

Gracias a Todos los que dieron respuesta en su momento. alguien sabe como cerrar este hilo?