Como Fazer Funcionar (,) e (.) Me ajudem

Delphi

02/06/2003

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


Hacson Menezes

Hacson Menezes

Curtidas 0

Respostas

Vmotta

Vmotta

02/06/2003

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


GOSTEI 0
POSTAR