Como trabalhar com Zero em campo tipo currency

Delphi

22/03/2005

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

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

Gameiro

Curtidas 0

Respostas

Sanses

Sanses

22/03/2005

Olá

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


GOSTEI 0
Gameiro

Gameiro

22/03/2005

Muito obrigado pela idéia,deu certo.


GOSTEI 0
POSTAR