Fiz uma pequena modificação no código do Fernando e funcionou normal aqui.
if Column.Title.Caption = 'Nome_da_Coluna' then TIntegerField(Column.Field).DisplayFormat := 'R$ ,0.00'; Isso dentro do evento DBGridItensDrawColumnCell, daí basta substituir o texto Nome_da_Coluna e o TIntegerField pelo tipo de dado que será recebido. Abraço Fábio Araujo Em 31/03/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> escreveu: > > > fiz do formar que mencionou e ainda não formatou o campo. > > www.inforamos.com > ----- Original Message ----- > From: Fernando Nappe > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Sent: Friday, March 30, 2007 9:56 AM > Subject: Re: [delphi-br] DisplayText do DBGrid > > Pois é, imaginei que o buraco seria mais embaixo....:) Mas nem tudo está > perdido. Codifique o evento OnDrawColumnCell do seu DBGrid da seguinte > forma: > > if (Column.Field is TFloatField) or (Column.Field is TBCDField) then > TFloatField(Column.Field).DisplayFormat := '#,##0.00'; > > <seu_dbgrid>.DefaultDrawColumnCell(Rect, DataCol, Column, State); > > Aí já era, todos os campos TFloatField ou TBCDField serão formatados > certinhos. > > Abraço. > Fernando Nappe > > PS: quando tiver um tempinho, visite http://nappe.blogspot.com > > Em 29/03/07, [EMAIL PROTECTED] <erivando%40inforamos.com> < > [EMAIL PROTECTED] <erivando%40inforamos.com>> escreveu: > > > > Assim seria muito fácil, rerere > > > > da forma que falou ñ dar certo pq eu uso este mesmo CDS para outras > > consultas, tem q ser feito em tempo de execução! > > > > ----------------------------------------- > > INFORAMOS - Soluções em Sistemas > > www.inforamos.com > > ----- Original Message ----- > > From: Fernando Nappe > > To: delphi-br@yahoogrupos.com.br > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog > rupos.com.br> > > Sent: Thursday, March 29, 2007 9:53 AM > > Subject: Re: [delphi-br] DisplayText do DBGrid > > > > Erivando, > > > > Adicione seus campos no Fieds Editor do ClientDataSet, selecione o campo > > desejado e altere a propriedade DisplayFormat, não tem erro, a menos que > > vc > > esteja usando uma solução "diferente". > > > > Abc. > > Fernando Nappe > > > > Em 29/03/07, BandaLemuel <[EMAIL PROTECTED]<bandalemuel%40yahoo.com.br> > <bandalemuel%40yahoo.com.br>> > > escreveu: > > > > > > posta o codigo para eu dar uma olhada.... > > > Wesley > > > > > > > > > ----- Original Message ----- > > > From: [EMAIL PROTECTED] <erivando%40inforamos.com><erivando%40inforam > os.com><erivando%40inforam > > os.com> > > > To: delphi-br@yahoogrupos.com.br > > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog > rupos.com.br><delphi-br%40yahoog > > rupos.com.br> > > > Sent: Wednesday, March 28, 2007 12:12 PM > > > Subject: Re: [delphi-br] DisplayText do DBGrid > > > > > > fiz assim: TFloatField(Fields[8]).DisplayFormat:= '###,###.00'; > conforme > > > vc mensionou mais ainda continua no DBGrid 500 ao inves de 500,00 > > > > > > erivando > > > > > > www.inforamos.com > > > ----- Original Message ----- > > > From: BandaLemuel > > > To: delphi-br@yahoogrupos.com.br > > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog > rupos.com.br><delphi-br%40yahoog > > rupos.com.br> > > > Sent: Wednesday, March 28, 2007 7:54 AM > > > Subject: Re: [delphi-br] DisplayText do DBGrid > > > > > > Tente assim... > > > > > > no evento que executa o SQL.. logo apos ter aberto o seu componente > > > query.... > > > > > > TFloatField(Query.Fields.Fields[n]).DisplayFormat := '###,###.00'; > > > > > > Espero ter ajudado > > > > > > Wesley > > > > > > ----- Original Message ----- > > > From: inforamos > > > To: delphi-br@yahoogrupos.com.br > > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoog > rupos.com.br><delphi-br%40yahoog > > rupos.com.br> > > > Sent: Tuesday, March 27, 2007 12:18 PM > > > Subject: [delphi-br] DisplayText do DBGrid > > > > > > boa tarde! > > > > > > tenho um dbgrid com um campo valor que alimentado por uma consulta > > > realizada por um clientdataset. > > > > > > o valor é apresentado assim: 100000 eu goataria que formatasse assim: > > > 1.000,00 > > > > > > acho que eu poderia usar o DisplayText mas não estar dando certo, > > > aguem da lista poderia mim ajudar....? > > > > > > grato! > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > ---------------------------------------------------------- > > > > > > No virus found in this incoming message. > > > Checked by AVG Free Edition. > > > Version: 7.5.446 / Virus Database: 268.18.20/736 - Release Date: > > 27/3/2007 > > > 16:38 > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > -- > > Fernando Nappe > > Analistas de Sistemas > > http://nappe.blogspot.com > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Fernando Nappe > Analistas de Sistemas > http://nappe.blogspot.com > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
