Gravar quot;,00quot;

Delphi

09/08/2006

Bom Dia

Estou com o seguinte problema:
Tenho 3 bdedit em meu form, DBValorTotal, DBQuantidade, DBValor, todos são campo Alfanumerico
no evento onexit do DBValor, tem o seguinte codigo:
DBValorTotal.Field.AsFloat := DBQuantidade.Field.AsFloat * DBValor.Field.AsFloat;
O problema ocorre da seguinte forma no DBQuantidade recebe o valor de 1 DBValor recebe o valor de
2 e automaticamente o campo DBValorTotal recebe o valor de 4 porém eu preciso que o valor de 4 seja
4,00.
Já utilizei o editmask, displayformat mais ao gravar no banco de dados a informação somente é
armazenado o numero 4 sem os ,00 na frente.
Gostaria de saber uma forma de como armazenar o ,00
Obs.: Isso somente ocorre com o numero zero quando o resultado é 4,10 ele armazena 4,1


Misael

Misael

Curtidas 0

Respostas

Marco Salles

Marco Salles

09/08/2006

voce ja tentou no evento [b:3847b6d445]OnSetText do Tfield [/b:3847b6d445]escrever o codigo

sender.AsString:=formatFloat(´0.00´,strtofloat(text));



GOSTEI 0
POSTAR