1+1=3 ?

[roman]

luisny comentó:
CUIDADO con QuickReport y poner SetRoundMode(rmUp) .

Al generar unos informes se produce un error stack overflow.

De ser así es un problema de QuickReport y habrá que reportarlo.

Algo que quizá funcione sea restaurar el modo de redondeo en cuanto termines:

var
  RoundMode: TFPURoundingMode;

begin
  RoundMode := GetRoundMode;
  SetRoundMode(rmUp);
  Label1.Caption:=format('%.2n',[d]);
  SetRoundMode(RoundMode);
end;

// Saludos