Fórum Formatação de TEdits #234375
25/05/2004
0
Pessoal . . .
Presiso formatar um TEdit de forma que ao fazer um calculo, ele retorne a virgula e as casas decimais, tipo ,00.
Se após o calculo, retorna um inteiro como por exemplo 7,00, ele displaya somente o 7.
Como formato o TEdit para que ele mostre os pontos e a virgula decimal no caso R$ 1.234,56.
Obrigada
Andreza
Presiso formatar um TEdit de forma que ao fazer um calculo, ele retorne a virgula e as casas decimais, tipo ,00.
Se após o calculo, retorna um inteiro como por exemplo 7,00, ele displaya somente o 7.
Como formato o TEdit para que ele mostre os pontos e a virgula decimal no caso R$ 1.234,56.
Obrigada
Andreza
Deza.re
Curtir tópico
+ 0
Responder
Posts
26/05/2004
Maurício Santos
Olá!!!
Fiz um teste rápido e acho que isto resolve o seu problema.
procedure TForm1.Button1Click(Sender: TObject);
var
valor:double;
begin
Valor := StrToFloat(edit1.text);
Edit1.Text := FormatFloat(´#,0.00´,valor);
end;
Sucesso....
Maurício
Fiz um teste rápido e acho que isto resolve o seu problema.
procedure TForm1.Button1Click(Sender: TObject);
var
valor:double;
begin
Valor := StrToFloat(edit1.text);
Edit1.Text := FormatFloat(´#,0.00´,valor);
end;
Sucesso....
Maurício
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)