Sumar y multiplicar varios edit automaticamente

[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.

Ejemplo:

Código Delphi [-]
...

procedure TForm1.EditsExit(Sender: TObject);
var
  d : Double;
begin
  d := StrToFloatDef(TEdit(Sender).Text, 0);
  TEdit(Sender).Text := FormatFloat('0.00', Redondear(d, 1));
end;

De este modo, cuando el Edit activo pierda el foco, mostrará el redondeo que deseas. ( StrToFloatDef )

Saludos

[Milworm99]

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.

El problema es que cuando se multiplica 1 x 0.80 me arroja el valor 0.90

[Milworm99]

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

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:

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:

Edt2.Text:= FormatFloat('0.00',multiplicacion);

Con esto logramos que al multiplicar 1 x 0.80 nos muestre el valor de : 0.80