Formataçao de casas decimais
Galera
Como faço para colocar 2 casas decimais, quando não informado Centavos ???
Tipo, se eu informar: 150 tem que aparecer no dbedit 150,00
Veja bem: Somente quando nao informar os centavos, ele tem que aparecer ,00 automaticamente
Estou usando o BDS2006 + Firebird + conexao dbexpress
Fico no aguardo
Rogério
Como faço para colocar 2 casas decimais, quando não informado Centavos ???
Tipo, se eu informar: 150 tem que aparecer no dbedit 150,00
Veja bem: Somente quando nao informar os centavos, ele tem que aparecer ,00 automaticamente
Estou usando o BDS2006 + Firebird + conexao dbexpress
Fico no aguardo
Rogério
Rogeranalista
Curtidas 0
Respostas
Marco Salles
15/06/2008
acho que tem várias formas ...
uma delas é utilizar o evento [b:26f6a04b5d]OnGetText [/b:26f6a04b5d]do campo field
uma delas é utilizar o evento [b:26f6a04b5d]OnGetText [/b:26f6a04b5d]do campo field
procedure TForm1.SeuDataSetSeuCampo(Sender: TField; var Text: String; DisplayText: Boolean); begin text:=formatfloat(´#,0.00´,roundTo(sender.AsFloat,-2)); end;
GOSTEI 0
Emerson Nascimento
15/06/2008
se você trabalhar com campos persistentes, basta informar que o campo é Currency.
GOSTEI 0
Felipemarinho
15/06/2008
cara se você estiver usando um dbedit,
desta maneira eu acho mais simples
na propriedade ´displayformat´ da sua query ou table
coloque o seguinte
#,0.00
desta maneira eu acho mais simples
na propriedade ´displayformat´ da sua query ou table
coloque o seguinte
#,0.00
GOSTEI 0
Mahdak
15/06/2008
cara se você estiver usando um dbedit,
desta maneira eu acho mais simples
na propriedade ´displayformat´ da sua query ou table
coloque o seguinte
#,0.00
boa!
GOSTEI 0
Luizriacho
15/06/2008
no on exit do dbedit entre com o código
edit.Text := FormatFloat(´#0.00´, StrToFloat(edit.Text)
edit.Text := FormatFloat(´#0.00´, StrToFloat(edit.Text)
GOSTEI 0