Problema com float !!

Delphi

13/05/2004

Ola amigos progamadores, estou com uma dificuldade em armazenar variaveis tipo float(é para guardar graduação + e - com 2 casas decimais apos a virgula) e retornar para usuario conforme ele guardou.Estou usando esse tipo de codigo para armazenar e em um determinado ponto preciso que retorne assim
Ex:
+1,75 ; -1,50 ; 0,00 ; 12,00 ; -10,50 ....
e assim por diante, o que acontece é que eu preciso que retorne o valor na tela exateamente com essa escrita!!
Desde ja agradeço!!


Feiopaurso

Feiopaurso

Curtidas 0

Respostas

Mmtoor

Mmtoor

13/05/2004

utilize formatfloat


GOSTEI 0
Onjahyr

Onjahyr

13/05/2004

Olá camarada, tudo bem?

Parece que você deseja ter valores monetários, é isso mesmo?

Se for faça assim:

[b:1a9fedbb45]var[/b:1a9fedbb45]
__s: currency;
__b: float;
[b:1a9fedbb45]begin[/b:1a9fedbb45]
__s:=EditCurrency1.Value; [i:1a9fedbb45](* Componente do Delphi *)[/i:1a9fedbb45]
__b:=FormatFloat(´0.00´,s); [i:1a9fedbb45](* Transforma para Float *)[/i:1a9fedbb45]
__ShowMessage(CurrToStr(s)); [i:1a9fedbb45](* Mostra a mensagem convertida *)[/i:1a9fedbb45]
[b:1a9fedbb45]end[/b:1a9fedbb45];

Faloww, estou fazendo sem o Delphi e as pressas, se não der certo é só falar e explicar com mais detalhes o que está querendo.... Se funcionar diz aí para que outros possam ver que funfa...

T+


GOSTEI 0
Fabio.hc

Fabio.hc

13/05/2004

Tente assim:

Coloque na propriedade DisplayFormat = [b:75ce869569]+#0.00;-0.00[/b:75ce869569] do campo, usando o fields Editor na Query/Table.


GOSTEI 0
Fabio.hc

Fabio.hc

13/05/2004

Correção:

DisplayFormat = [b:e6e6f89ea0]+#0.00;-0.00;0.00[/b:e6e6f89ea0]


GOSTEI 0
Eduardo_lcouto

Eduardo_lcouto

13/05/2004

Na hora de converter a variavel para Float utilize assim:

label1.caption:=floattostrf(variavel,ffCurrency,8,2);

o comando e esse mesmo ´floattostrf´ com f no final.


GOSTEI 0
Feiopaurso

Feiopaurso

13/05/2004

Opa Valeu , obrigado pela atenção dos amigos!!
vou implementar de todas essas maneiras sugeridas;mais uma vez Valeu!!


GOSTEI 0
POSTAR