Erro Floating Point
Estou usando Delphi 7 + Firebird + RxLib
a aplicação e uma entrada em estoque onde uso vários campos CurrencyEdit(RxLib) e depois via SQL faço um inset no banco de Dados, porem quando o campo fica com valor 0,00 ele apresente este erro, quando vai passar o parammetor (parambyname
EXEMPLO
SQLdpro.ParamByName(´ICMS´).AsFloat:=strtocurr(currencyedit6.text);
da o segiinte erro
´is not a valid floating point value´
Nilson
Obrigado antencipado :o
a aplicação e uma entrada em estoque onde uso vários campos CurrencyEdit(RxLib) e depois via SQL faço um inset no banco de Dados, porem quando o campo fica com valor 0,00 ele apresente este erro, quando vai passar o parammetor (parambyname
EXEMPLO
SQLdpro.ParamByName(´ICMS´).AsFloat:=strtocurr(currencyedit6.text);
da o segiinte erro
´is not a valid floating point value´
Nilson
Obrigado antencipado :o
Nilson Junior
Curtidas 0
Respostas
Afarias
21/10/2003
Até onde sei este componente (TRxCurrencyEdit) tem uma propriedade VALUE q retorna o valor em ponto-flutuante!
Neste caso, seria mais correto fazer::
SQLdpro.ParamByName(´ICMS´).AsFloat := CurrencyEdit6.Value;
Também tem uma propriedade ZeroEmpty que ser for colocada para FALSE -- eu acho -- q evita o erro q está ocorrendo (que por sinal não tem nada q ver com o IB)
-- ou vc poderia optar por um código como ::
try
SQLdpro.ParamByName(´ICMS´).AsFloat := StrToCurr(CurrencyEdit6.Text);
except
SQLdpro.ParamByName(´ICMS´).AsFloat := 0;
end;
T+
Neste caso, seria mais correto fazer::
SQLdpro.ParamByName(´ICMS´).AsFloat := CurrencyEdit6.Value;
Também tem uma propriedade ZeroEmpty que ser for colocada para FALSE -- eu acho -- q evita o erro q está ocorrendo (que por sinal não tem nada q ver com o IB)
-- ou vc poderia optar por um código como ::
try
SQLdpro.ParamByName(´ICMS´).AsFloat := StrToCurr(CurrencyEdit6.Text);
except
SQLdpro.ParamByName(´ICMS´).AsFloat := 0;
end;
T+
GOSTEI 0
Nilson Junior
21/10/2003
Pbrigado :oops:
GOSTEI 0