ActiveDelphi

[CCCPPP]

Parece ser algo banal, mas ao tentar fazer uma simples conversão de um texto de uma edit para um float e colocar no banco de dados, o valor armazenado é diferente. Ex: Quando mando por 1,23 o que aparece na tabela é 1,2300000190735. Sei que em um cálculo isso é quase desprezível, mas é um erro e gostaria de corrigi-lo, até porque no DBGrid é mostrado o valor incorreto.

Para testar se o erro era na conversão:

ShowMessage(FloatToStr(StrToFloat(EditPreco_uni.Text)));

O showmessage me retorna exatamente 1,2 Então acho que o problema é com o Firebird.

Segue meu código:

Procedure TFDataModule.Inserir_M(Codigo, Nome, Quantidade, Localizacao, Preco_com:string);
begin

Query_I_AA.Close; //preco de compra
Query_I_AA.SQL.Text:='insert into M_PRIMAS values(:CODIGO,:NOME,:QUANTIDADE,:LOCALIZACAO, :PRECO_COM)';
Query_I_AA.ParamByName('CODIGO').AsInteger := StrToInt(Codigo);
Query_I_AA.ParamByName('NOME').AsString := Nome;
Query_I_AA.ParamByName('QUANTIDADE').AsFloat := StrToFloat(Quantidade);
Query_I_AA.ParamByName('LOCALIZACAO').AsString := Localizacao;
Query_I_AA.ParamByName('PRECO_COM').AsFloat := StrToFloat(Preco_com);
Query_I_AA.ExecSQL;

end;

[imex]

Qual banco de dados você está utilizando?
Qual o tipo dos campos no banco de dados?

__________________
Assinatura: Imoveis em Suzano

[CCCPPP]

Firebird 2.5

Tabela M_PRIMAS com os campos CODIGO:integer , NOME: string, QUANTIDADE:Float, LOCALIZACAO:String, PRECO_COM:Float;

[imex]

Este problema deve estar ocorrendo em função do tipo Float na tabela do Firebird.
Experimente alterar de Float para Decimal (ex: Decimal(9,2) para um número com até 7 inteiros e 2 decimais).

Espero que ajude.

[pestana]

Para valores monetários eu utilizo o numeric ou decimal, faça um teste com o imex citou.

qualquer coisa volte a postar
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.

[CCCPPP]

Com o que o imex sugeriu realmente deu certo. Obrigado. Resolvido.

[pestana]

ok, qui bom que deu certo!

só coloca como "resolvido" no título do tópico para ajudar o fórum.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso.

[leogazio]