ActiveDelphi

[valnei]

Bom dia caros colegas.

Estou com um problema que não achei no fórum, apesar de ficar procurando quase a manhã inteira.
É o seguinte.

Tenho um componente Edit1 que receberá o valor total do produto, então
se entro com a informação em uma variável para calcular chamada Valor_Total, obtenho inclusive pela calculadora convencional:

- Meia duzia de ovos brancos a R$ 2.19 a dúzia, então faço o seguinte calculo.

0.50 X 2,19 da um total de 1.095, este valor total se eu colocar para mostrar no campo Edit1 através do seguinte comando:

Edit1.Text := FormatFloat('###,##0.00', Valor_Total);

Dá o valor 1.09, isto esta correto,

Agora vem o problema

0.50 x 2,39 da um total de 1,195, se eu mostrar no campo edit1, utilizando o mesmo comando acima da R$ 1,20, ta errado pq ele aproximou, da um centavo de diferença, e o cliente que estiver fazendo esta compra pode reclamar por causa de 1 centavo.

O engraçado é que no exemplo de 1.095 ele não arredonda, e no valor 1.195 ele arredonda.

Isto esta quebrando minha cabeça. Alguém poderia me ajudar com isto.
Sei que pode ser o tipo de formatação. Lembrando que tem que aparecer certinho o valor como se fosse em moeda, pois isto é um programa de venda (Frente de Caixa) e agora que percebemos este pequeno detalhe de um centavo.

Grato a todos

Valnei.

[ws_junior]