Formataçao de casas decimais

15/06/2008

1

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


Responder

Posts

15/06/2008

Marco Salles

acho que tem várias formas ...

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;



Responder
se você trabalhar com campos persistentes, basta informar que o campo é Currency.


Responder

16/06/2008

Felipemarinho

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


Responder

03/12/2008

Mahdak

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!


Responder

03/12/2008

Luizriacho

no on exit do dbedit entre com o código


edit.Text := FormatFloat(´#0.00´, StrToFloat(edit.Text)


Responder