Problem mit RoundTo((100*0.01),0)

[peschai]

@RavenIV
ok nocheinmal etwas deutlicher:
Weil es hier um pure Codegear funktionen geht. Es geht hier nicht um den von uns geschriebenen Sourcecode.
Anders formuliert tritt das problem INNERHALB der codegear math.RoundTo Funktion auf:

Delphi-Quellcode:

function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double; 
var 
  LFactor: Double; 
begin 
  LFactor := IntPower(10, ADigit); 
  Result := Round(AValue / LFactor) * LFactor; 
end;

"Round(AValue / LFactor) * LFactor;" liefert hier unterschiedlich Ergebnisse.
Wenn im besagten Fall für AValue von Aussen "100.0" oder "Staedteouble=100.0" übergeben wird, so ist das Ergebnis für das Beispiel weiteroben unterschiedlich, was natürlich fatal ist!