Formatação na entrada de dados com edit ou maskedit

21/05/2003

1

Necessito entrar com valor em um campo edit ou maskedit, mas que este seja apresentado na digitaçao com as separacoes decimais e milhar. O campo do arquivo de dados paradox e ($) currency.


Como colocar esta picture (mascara) no formato 999.999.999,99, tentei o formatfloat e formatcurr, funciona na saida do campo, mas ocorre erro na gravacao.

Mensagem: Este não é um campo float valido.


Obrigado pela ajuda, estou começando no delphi agora, a versão que utilizo e a 6.0 profissional.

heliorios@ig.com.br


Responder

Posts

21/05/2003

Glecio

E aê Cara...

Bem. A funcão FORMATFLOAT retorna um valor string, certo!?

A pegunta é: Vc está convertendo para float novamente????

Utilizo da Seguinte Maneira:

No OnExit do Edit:

Begin
Try
Edit1.Text := FormatFloat( ´#0.00´ , StrToFloat(Edit1.Text);
Except
ShowMessage(´Valor Inválido. Verifique!´);
Edit1.SetFocus;
End;
End;


Na Ora de Gravar:

Begin
...
Table1Campo1.Value := StrToFloat(Edit1.Text);
...
End;

Falou Cara!!!!!

Espero ter te ajudado.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira