Okay, ich habs jetzt umgebaut zu:
Delphi-Quellcode:
function roundexact(X:single;digits:integer):single;
begin
result:=x*power(10,digits)+0.5;
result:=trunc(result);
result:=result/power(10,digits);
end;
Müsste ich aber nicht eigentlich 0.50001 dazuaddieren oder sowas?