Delphi 7 truncando decimal

Delphi

21/07/2006

Olá senhores

Estou usando um simples operação usando o comprovante pbnumedit

pbFrete.AsFloat := frComDescAcrePeNota.pbFrete.AsFloat ;

E ai Tó com um problema que está me preocupando muito. Acontece em alguns clientes o seguinte.
No exemplo acima uso um componente pbNumEdit e estou atribuindo um valor de 8.00 reais ao frComDescAcrePeNota.pbFrete.AsFloat,
depois pego esse valor e atribuo ao pbFrete.AsFloat.
O que tem acontecido em alguns clientes é o seguinte o valor do pbFrete aparece com 800.00.
Quando uso o exemplo acima o valor de frComDescAcrePeNota.pbFrete.AsFloat é 8.00 mas quando atribuo a pbfrete.asfloat ele fica com 800.00
Isto tem acontececido em alguns clientes. É como se ele não exergasse a decimal e acresentasse 00. Isto aconteceu agora com clientes que
usam xp mas acredito ter acontecido com o 98. O pior é que Isto não acontece sempre. As vezes passa dias sem acontecer e as vezes acontece seguida tres vezes e volta ao normal. Outras vezes apenas uma vez. Esse problema me aconteceu a muito tempo mas parou e agora voltou a acontecer.

Uso a configuracao abaixo no delphi
DecimalSeparator :=´.´;
ShortDateFormat := ´dd/mm/yyyy´;

Algun de vcs tiveram problemas semelhantes ?

Obrigado mais uma vez


Marcosrodias

Marcosrodias

Curtidas 0

Respostas

Marcosrodias

Marcosrodias

21/07/2006

sobe


GOSTEI 0
POSTAR