Cita:
Empezado por ecfisa
Hola.
Un modo es que crees código para el evento OnExit de un TEdit y luego se lo asignes a todos los Edits que esperen números decimales para redondear.
|
Ya encontre el problema, para los que quieren que les multiplique un numero por un decimal ( ejemplo: 0.75 ) y el resultado les muestre redondeado utilizan esa función
Código:
function Redondear(const Numero: Double; const Digitos: Integer): Double;
var
m: Double;
begin
m:= Exp(Ln(10) * Digitos);
Result:= Round(Numero * m + 5 / m) / m;
end;
Metodo de uso:
Código:
multiplicacion:Currency;
multiplicacion := StrToFloatDef (edt1.Text, 0) * 0.75;
Edt2.Text:= FormatFloat('0.00', Redondear(multiplicacion , 1));
Con esto logramos que al multiplicar 1 x 0.75 el valor nos muestre redondeado: 0.80
Y si quieren que multiplique un numero por un decimal ( ejemplo: 0.80) y el resultado les muestre redondeado, utilizamos:
Código:
Edt2.Text:= FormatFloat('0.00',multiplicacion);
Con esto logramos que al multiplicar 1 x 0.80 nos muestre el valor de : 0.80