Fórum Como Fazer Funcionar (,) e (.) Me ajudem #164128
02/06/2003
0
Utilizo este codigo no evento on timer e intruduz a virgula antes das ultimas duas casas mais eu gostaria que se ja tivesse a virgula ele não pusesse mais. E se possuisse 4 casas ele pousesse um ponte entre a 1 e a 2 como abaixo
2.525,50 hoje ele so faz assim 1205,58
If Length(Edit1.Text) > 2 then
Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-2) + ´,´ + Copy(Edit1.Text,Length(Edit1.Text)-1,2)
Else
Edit1.Text := ´0,´ + Edit1.Text;
Falow
2.525,50 hoje ele so faz assim 1205,58
If Length(Edit1.Text) > 2 then
Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-2) + ´,´ + Copy(Edit1.Text,Length(Edit1.Text)-1,2)
Else
Edit1.Text := ´0,´ + Edit1.Text;
Falow
Hacson Menezes
Curtir tópico
+ 0
Responder
Posts
02/06/2003
Vmotta
tenta usar esse comando :
var
valor: real;
begin
valor := 1234567;
Edit1.Text := FormatFloat(´#,,0.00´, valor);
// nesse caso, seu edit vai exibir : 1.234.567,00
valor := 12345.67;
Edit1.Text := FormatFloat(´,,0.00´, valor);
// nesse caso, seu edit vai exibir : 12.345,67
end;
espero que te ajude ... T+
Vitor
var
valor: real;
begin
valor := 1234567;
Edit1.Text := FormatFloat(´#,,0.00´, valor);
// nesse caso, seu edit vai exibir : 1.234.567,00
valor := 12345.67;
Edit1.Text := FormatFloat(´,,0.00´, valor);
// nesse caso, seu edit vai exibir : 12.345,67
end;
espero que te ajude ... T+
Vitor
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)