Formatação na entrada de dados com edit ou maskedit
21/05/2003
0
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
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
Helio Rios
Curtir tópico
+ 0
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.
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
Clique aqui para fazer login e interagir na Comunidade :)