F�rum Formatar valor #406025

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

Curtir t�pico

+ 0

Responder

Posts

08/08/2011

Wilson Junior

Coloque no evento OnExit do Edit

Edit1.Text := FormatFloat( '###,###,##0.00',
  StrToFloatDef(StringReplace( Edit1.Text, '.', '', [rfReplaceAll]), 0) );

Espero ter colaborado.

Responder

Gostei + 0