Fórum Como trabalhar com Zero em campo tipo currency #273729
22/03/2005
0
Tenho um cadastro de Produto e em alguns campos uso currencyedit, com mascara para dinheiro.
No campo preço de custo as vezes o cliente deixa zerado R$ 0,00, quando vou converter o valor
aparece o erro de conversão
is not valid floating point value.
Há algum jeito de deixar o valor zerado e não dar erro.
obrigado
No campo preço de custo as vezes o cliente deixa zerado R$ 0,00, quando vou converter o valor
datamodule2.ClientDataSet3.fieldbyname(´preco_custo´).asfloat:=strtofloat(currencyedit1.Text);
aparece o erro de conversão
is not valid floating point value.
Há algum jeito de deixar o valor zerado e não dar erro.
obrigado
Gameiro
Curtir tópico
+ 0
Responder
Posts
23/03/2005
Sanses
Olá
Eu faria assim:
No evento exit do componente:
e a função seria essa
Nesse caso, onde tem showmessage(´é float´), vc pode substituir pela sua conversão acima que vai funcionar e vice verso para o de baixo.
Espero ter ajudado
[]´s
Sanses
Eu faria assim:
No evento exit do componente:
begin if validafloat(CurrencyEdit1.Text) then showmessage(´é float´) else showmessage(´não é float´); end;
e a função seria essa
function validafloat(valor : string):boolean; begin try StrTofloat(valor); result := true; except on EConvertError do result := false; end; end;
Nesse caso, onde tem showmessage(´é float´), vc pode substituir pela sua conversão acima que vai funcionar e vice verso para o de baixo.
Espero ter ajudado
[]´s
Sanses
Responder
Gostei + 0
23/03/2005
Gameiro
Muito obrigado pela idéia,deu certo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)