Sumar y multiplicar varios edit automaticamente

[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