Formatar valor

Delphi

04/08/2011

Olá,   Tenho um edit onde vai ser digitado um valor monetario e preciso que no evento ONEXIT do edit qdo o usuario digitar um valor sem virgula, qdo sair do edit automaticamente apareça a virgula com os 2 zeros, por exempo o usuario digitou 123 e ao sair do edit fique assim 123,00.   Grato   Luiz Carlos
Luiz Carlos

Luiz Carlos

Curtidas 0

Respostas

Wilson Junior

Wilson Junior

04/08/2011

Coloque no evento OnExit do Edit
Edit1.Text := FormatFloat( '###,###,##0.00',
  StrToFloatDef(StringReplace( Edit1.Text, '.', '', [rfReplaceAll]), 0) );


Espero ter colaborado.
GOSTEI 0
POSTAR