Mir fehlt als armer Delphi 5 User die Funktion
SimpleRoundTo.
Ich habe mir diese mal eben selbst gebaut:
Delphi-Quellcode:
function SimpleRoundTo(value:Extended; nk:integer):Extended;
var
multi: Extended;
begin
multi := IntPower(10, -nk);
Result := Round(Value*multi) / multi;
end;