Currency no Edit
fiz uma sql assim:
...
close;
sql.text:=´select * from tabela where campo =:camp´;
parambyname(´camp´).asstring:=edit1.text;
open;
...
até aí OK. Após aberta a query, digo:
edit2.text:=currtostr(tabelacampo.ascurrency);
Na hora de carregar o valor da tabela, no edit, ele vem, mas sem a máscara MOEDA(currency). No editor de campos da tabela, coloquei currency para true, mas não aconteceu nada. Fiz também, apos o open assim:
tabelacampo.editformat:=´#.00´;
tabelacampo.displayformat:=´R$.00´; e nada, continua o edit sem a máscara. O q devo fazer para carregar o formato moeda dentro do edit?
...
close;
sql.text:=´select * from tabela where campo =:camp´;
parambyname(´camp´).asstring:=edit1.text;
open;
...
até aí OK. Após aberta a query, digo:
edit2.text:=currtostr(tabelacampo.ascurrency);
Na hora de carregar o valor da tabela, no edit, ele vem, mas sem a máscara MOEDA(currency). No editor de campos da tabela, coloquei currency para true, mas não aconteceu nada. Fiz também, apos o open assim:
tabelacampo.editformat:=´#.00´;
tabelacampo.displayformat:=´R$.00´; e nada, continua o edit sem a máscara. O q devo fazer para carregar o formato moeda dentro do edit?
Paulo
Curtidas 0
Respostas
Renata Coimbra
22/12/2003
Acho q assim dar certo !
Edit2.Text := FormatFloat(´,0.00´, tabelaCampo.asCurrency);
Renata Coimbra.
Edit2.Text := FormatFloat(´,0.00´, tabelaCampo.asCurrency);
Renata Coimbra.
GOSTEI 0