Fórum Alinhar o TEdit a direita eu ja fiz, mas falta Formatar! #221892
24/03/2004
0
estou com um probleminha....
eu desenvolvendo uma aplicação onde os usuários entraram com valores monetários em um TEdit... gostaria que esse TEdit fosse igual a de um caixa eletrônico.
Alinhar o edit a direita eu consegui, mas estou tendo problemas para formatar os valores.
Este é meu código:
No evento OnChange do TEdit eu coloquei:
edt_taxa_1.Text:=FormatCurr(´#,.´,StrToFloat(edt_taxa_1.text));
e não dá certo...
depois tentei...
edt_taxa_1.Text:=FormatFloat(´,.´,StrToFloat(edt_taxa_1.text));
e também não deu certo... não gera erro algum, mas ele não faz o que estou querendo, exemplo... se o usuário digitar a sequencia 125, ele faz:
1
12
1.25
alguém poderia me ajudar?
Obs.: O meu separador decimal é ´.´
Anarchybra
Curtir tópico
+ 0Posts
24/03/2004
Jc_analista
1)
num:integer;
Edit1.text:=formatfloat(´#,,0.00´, num)
2)aux:string;
aux:=format(´¬f´,strtofloat(edit1.text)
edit1.text:=aux;
espero ter ajudado;
Gostei + 0
24/03/2004
Anarchybra
outra coisa que reparei, é que se eu digitar o ´0´ na primeira casa, ele gera um erro....
alguém já passou por isso antes?
Gostei + 0
08/06/2004
Dpinho
Tambem estava com este problema no Delphi sete so resolvi colocando a mesma mascara na Propriedade DisplayMask
como alinhou a direita?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)