Como colocar mascara p/ numeros no EDIT?

Question

Caros, gostaria de saber como que fa�o para usar o componente Edit da seguinte forma:- Aceitar s� n�meros;- Que os n�meros saiam numa formata��o ex.: (999,999.99);- Os n�meros ao serem digitados sair ...

Porttime · Answer

[color=green:6dc9a8d7d5]no evento OnExit do Edit1 coloque �Faz formata��o 1,100.00�[/color:6dc9a8d7d5]

edit1.Text:= FormatFloat(�#,,0.00�, StrtoFloat(edit1.Text));

[color=blue:6dc9a8d7d5]no on exit coloque o abaixo p/ � aceitar de A a Z[/color:6dc9a8d7d5]

if (key in [�a�..�z�]) or (key in [�A�..�Z�]) then
key:=0;

[color=red:6dc9a8d7d5]Para valor sair em Numerico[/color:6dc9a8d7d5]
procedure TForm1.Edit1Exit(Sender: TObject);
var
valor:real; // Variavel Numerica
begin

edit1.Text:= FormatFloat(�,,0.00�, StrtoFloat(edit1.Text));
valor:=strtofloat(edit1.text);

end;

[color=darkblue:6dc9a8d7d5]Espero ter ajudado.

BlZ

Flw[/color:6dc9a8d7d5]

Andr� Batista · Answer

Segui seus conselhos Porttime, mas me surgiu outro problema, se o valor for maior que 1000,00 ele apresenta erro que diz:
Is not a valid floating point value
como se o valor n�o fosse float, ser� que pode me ajudar??

Andr� Batista · Answer

Bem, alterei um pouco a mascara e a principio resolveu, ficou desta forma, se estiver errado, me corrijam

edit1.Text:= FormatFloat(�0.00�, StrtoFloat(edit1.Text));
valor:=strtofloat(edit1.text);

Espero ter ajudado, assim como fui

G3x · Answer

Uma maneira simples de resolver este problema, dependendo da sua necessidade e claro seria substituir o edit por um MaskEdit da Guia Aditional, ele tem uma propriedade chamada EditMask onde vc pode formatar facilmente a mascara....

Carla Batista · Answer

Opa G3x, Excelente sugest�o :)  . Ficaria com menos c�digo para implementar :)...

F�rum Como colocar mascara p/ numeros no EDIT? #151642