kaufmännisch runden

[Uwe Raabe]

Nicht unbedingt die überwältigende Performance, aber geht:

Delphi-Quellcode:

  
resx := StrToFloat(Format('%1.*f', [2, x]));

Alternativ hilft manchmal auch ein Zwischenschritt über Currency:

Delphi-Quellcode:

  resz := FloatToCurr(x);
  resz := RoundX(resz,2);