Formatação de TEdits
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
Curtidas 0
Respostas
Maurício Santos
25/05/2004
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
GOSTEI 0