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'; 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