Hmmm. Interessante Diskussion. Ich verwende einfach:
Delphi-Quellcode:
Function Aufrunden (Const aValue : Extended; aDecimals : Byte) : Extended;
Var
aDivider : Extended;
Begin
aDivider := Power (10,aDecimals);
If aValue>0 Then
Result := Trunc (aValue*aDivider + 0.5) / aDivider
else
Result := Trunc (aValue*aDivider - 0.5) / aDivider;
End;
Das macht dann, unanhängig von Borland, Borländern, Wikis, Intels, FPU's und deren Befindlichkeiten, stehts das Gleiche.
@Progman: Komisch,
FloatToStrF(0.435, ffFixed, 8, 2) liefert 0.44...