Como Formatar um Edit para exibir e gravar em formato de moeda

Delphi

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

José Soares

Curtidas 0

Melhor post

Rafael Bosco

Rafael Bosco

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.
GOSTEI 1

Mais Respostas

José Soares

José Soares

31/05/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.


Muito Obigado pela ajuda!!! vwl
GOSTEI 0
POSTAR