Formatar o edit1.text
Como faço para quando eu digitar um valor dentro da edit1.text ela me transformar em valor de moeda?
Ex: Digito 1 ela transforma em 1,00
1,3 ela transforma em 1,30
E também, qual comando uso para não deixar digitar letras dentro da edit1.text
Desde já muito grato;
Ex: Digito 1 ela transforma em 1,00
1,3 ela transforma em 1,30
E também, qual comando uso para não deixar digitar letras dentro da edit1.text
Desde já muito grato;
Marcelototini
Curtidas 0
Respostas
Rodrigo Costa
21/05/2003
Função FormatCurr ex:
Seria mais fácil vc usar um dbedit ligado a uma tabela com o campo numérico que automaticamente não permite que seja digitado caracteres alfabeticos. Inclusive vc pode definir no Fields Editor da query ou table como é que vc quer que os campos sejam exibidos.
val_desconto:=strtofloat(edt_valdesconto.Text);
edt_valdesconto.Text:=FormatCurr(´R$ #,0.00´,val_desconto);
Seria mais fácil vc usar um dbedit ligado a uma tabela com o campo numérico que automaticamente não permite que seja digitado caracteres alfabeticos. Inclusive vc pode definir no Fields Editor da query ou table como é que vc quer que os campos sejam exibidos.
GOSTEI 0