Sumar y multiplicar varios edit automaticamente

[ecfisa]

Hola.

Si vas a trabajar con monedas el tipo Currency es el indicado.

Saludos

[Milworm99]

Empezado por ecfisa

Hola.

Si vas a trabajar con monedas el tipo Currency es el indicado.

Saludos

Y como se hace para el redondeo del resultado en decimales ?

[Milworm99]

Se trabajaría con este codigo ?

FormatFloat('0.0',amount);

[The Cid James]

Aca encontre lo que necesitas

https://www.clubdelphi.com/foros/showthread.php?t=40785

Saludos

[Milworm99]

Empezado por The Cid James

Aca encontre lo que necesitas

https://www.clubdelphi.com/foros/showthread.php?t=40785

Saludos

function Redondearagag(Valor:Real; Decimal:Integer):Real;
begin
  result := StrToFloat(FloatToStrF(StrToFloat(FloatToStr(Valor)), ffFixed, 18, Decimal));
end;

Como puedo utilizar esa funcion para redondear ?
Lo que yo quiero es que si el resultado es
7.55 lo redondee a 7.60

[ecfisa]

Hola.

Empezado por Milworm99

...
Lo que yo quiero es que si el resultado es
7.55 lo redondee a 7.60

La función anterior lo hace, solo debes llamarla pasándo el valor 1 al parámetro Decimal.

Te agrego dos opciones diferentes:

Código Delphi [-]
uses Math;

function Redondear(const Value: Double; const Digit: Integer): Double;
begin
  SetRoundMode(rmUp);
  Result := RoundTo(Value, - Digit);
end;

Código Delphi [-]
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;

Un ejemplo de uso para ambos casos:

Código Delphi [-]
...
begin
  ShowMessageFmt('%8.2f', [ Redondear(7.55, 1) ]);

Saludos

[Milworm99]

Empezado por ecfisa

Hola.

La función anterior lo hace, solo debes llamarla pasándo el valor 1 al parámetro Decimal.

Funciona perfectamente, pero en este caso como lo haría para que el resultado me lo muestre en un edit automáticamente sin ningún botón ?