Alinhar o TEdit a direita eu ja fiz, mas falta Formatar!
Olá amigos...
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 é ´.´
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
Curtidas 0
Respostas
Jc_analista
24/03/2004
Conheço duas maneiras:
1)
num:integer;
Edit1.text:=formatfloat(´#,,0.00´, num)
2)aux:string;
aux:=format(´¬f´,strtofloat(edit1.text)
edit1.text:=aux;
espero ter ajudado;
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
Anarchybra
24/03/2004
caro amigo jc_analista, muito obrigado pela atenção, mas infelizmente continuo com o mesmo problema...
outra coisa que reparei, é que se eu digitar o ´0´ na primeira casa, ele gera um erro....
alguém já passou por isso antes?
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
Dpinho
24/03/2004
Conheço duas maneiras:
1)
num:integer;
Edit1.text:=formatfloat(´#,,0.00´, num)
espero ter ajudado;
Tambem estava com este problema no Delphi sete so resolvi colocando a mesma mascara na Propriedade DisplayMask
como alinhou a direita?
GOSTEI 0