Código Delphi
[-]procedure TT_UT.ButtonUtClick(Sender: TObject);
begin
T_UT.DBISAMQueryUT.SQL.Clear;
T_UT.DBISAMQueryUT.SQL.Add('UPDATE');
T_UT.DBISAMQueryUT.SQL.Add('STipoRetencionDetalle SET FRETD_MAYORQUE =:ValorUt');
T_UT.DBISAMQueryUT.SQL.Add('WHERE FRETD_PERSONA = 0');
T_UT.DBISAMQueryUT.ParamByName('ValorUt').AsFloat := 1.23; T_UT.DBISAMQueryUT.ParamByName('ValorUt').AsFloat := FloatToStr(T_UT.EditUt.Text); T_UT.DBISAMQueryUT.ExecSQL;
end;
Ten cuidado con la conversion:
FloatToStr convierte usando la configuracion regional del equipo. Existen formas de utilizar formatos definidos por el programador.
Esto se puede hacer usando la version sobrecargada que acepta un parametro de tipo
TFormatSettings; o bien utilizando una funcion llamada
FloatToStrF