Use o evento OnGetText do objeto TField associado ao campo da seguinte maneira:
procedure TForm1Query1CampoNumericoGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if DisplayText then
if not Sender.IsNull then
Text := StringReplace(FormatFloat('##0.00', Sender.AsFloat),
DecimalSeparator, 'P', []))
else
Text := EmptyStr
else
Text := Sender.AsString
end;
________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 28 Jul 2008 15:20:45 -0300
Subject: Re: [delphi-br] duvida
StringReplace ???
Vinicius dos Santos
Blog: http://tuplas.blogspot.com
http://www.msisolucoes.com.br
----- Original Message -----
From: rzzanatta
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 28, 2008 3:10 PM
Subject: [delphi-br] duvida
Olá eu tenho armazenado numa query um valor qualquer tipo 19,29, só que
eu quero que ele se transforme em 19P29, ou seja quero ler o valor
armazenado e no lugar da virgula colocar o P , como faço isso????
obrigado
[As partes desta mensagem que não continham texto foram removidas]
_________________________________________________________________
Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o
Messenger! É GRÁTIS!
http://www.msn.com.br/emoticonpack
