Fórum Problemas com tipo TFMTBCDField #327622
17/08/2006
0
Estou trabalhando com Firebird TClientDataSet acessando DBExpress e dialeto 3 do meu gdb.
Estou tendo problema de formatção do campo TFMTBCDField no TClientDataSet.
Na propriedade DisplayFormat estou usando #,0.00 mas para valores inteiros os zeros decimais não mostram:
Ex: 10 ---> 10 - (falta os decimais)
10,1 ---> 10,10 (correto)
Alguém tem alguma idéia do que posso fazer para corrigir isto ?
Pezzin
Curtir tópico
+ 0Posts
17/08/2006
Marco Salles
Gostei + 0
18/08/2006
Pezzin
Não.
Gostei + 0
18/08/2006
Marco Salles
A causa desse transtorno pode estar relacionado ao Driver que se usa
Voce esta usando qual o driver ????
Uma das saidas pode passar pelos eventos onsetText e ongetText do Campo...
Gostei + 0
18/08/2006
Sremulador
Gostei + 0
18/08/2006
Pezzin
A causa desse transtorno pode estar relacionado ao Driver que se usa
Voce esta usando qual o driver ????
Uma das saidas pode passar pelos eventos onsetText e ongetText do Campo...[/quote:7ff8b10bd1]
Estamos usando conexão com DbExpress do Delphi 2006 e dialeto 3 do banco de dados.
Como usar estes eventos no campo do meu ClientDataSet ?
Vc Pode pode me exemplificar ?
Obrigado.
Gostei + 0
18/08/2006
Pezzin
A causa desse transtorno pode estar relacionado ao Driver que se usa
Voce esta usando qual o driver ????
Uma das saidas pode passar pelos eventos onsetText e ongetText do Campo...[/quote:385b2de4f6]
Conseguimos usando ongetText do campo:
Text := FloatToStrF(V_ClientDataSet1.FieldByName´VALOR´).AsFloat,ffNumber,15,4);
Valeu.
Gostei + 0
18/08/2006
Marco Salles
procedure TForm1.NomeDoTfieldGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if sender.AsString <> ´´ Then text:=FormatFloat(´#.00´,sender.AsFloat); end;
nãp precisa mais usar DisplayFormat Do Campo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)