F�rum Como Formatar um Edit para exibir e gravar em formato de moeda #602735

31/05/2019

Ola pessoal!!

gostaria de saber como fa�o para formatar um EDIT ou nem um MaskEdit no formul�rio para exibir e gravar no banco de dados em formato de moeda.
Ex: 23.980,00

Jos� Soares

Curtir t�pico

+ 0

Responder

Post mais votado

03/06/2019

Usando um TEdit:

No evento OnExit do Edit, insira o c�digo abaixo:

var
     TextOnEdit: UnicodeString;
      Value: Currency;
begin
    
     TextOnEdit := Edit1.Text;

     if TryStrToCurr(TextOnEdit, Value) then
           Edit1.Text := FormatFloat('#.##, Value)
     else
           Edit1.Text := '0,00'; //se caso n�o conseguiu converter o valor digitado em n�mero, mostra 0
end;

Utilizando um TMaskEdit:

- Apenas clique em EditMask e selecione a op��o "Extension" e altere da forma desejada.

Rafael Bosco

Responder

Gostei + 1

Mais Posts

06/06/2019

Jos� Soares

Usando um TEdit:

No evento OnExit do Edit, insira o c�digo abaixo:

var
     TextOnEdit: UnicodeString;
      Value: Currency;
begin
    
     TextOnEdit := Edit1.Text;

     if TryStrToCurr(TextOnEdit, Value) then
           Edit1.Text := FormatFloat('#.##, Value)
     else
           Edit1.Text := '0,00'; //se caso n�o conseguiu converter o valor digitado em n�mero, mostra 0
end;

Utilizando um TMaskEdit:

- Apenas clique em EditMask e selecione a op��o "Extension" e altere da forma desejada.

Muito Obigado pela ajuda!!! vwl

Responder

Gostei + 0