Forum: Object-Pascal / Delphi-Language
Delphi
by alleinherrscher,
18. Dez 2009
Okay, ich habs jetzt umgebaut zu:
function roundexact(X:single;digits:integer):single;
begin
result:=x*power(10,digits)+0.5;
result:=trunc(result);
result:=result/power(10,digits);
Forum: Object-Pascal / Delphi-Language
Delphi
by alleinherrscher,
18. Dez 2009
Und was kann ich dagegen tun? Weiß jemand, wie die Umwandlung in nen String dieses Problem "umgeht" und dort exakt anzeigt?
Forum: Object-Pascal / Delphi-Language
Delphi
by alleinherrscher,
18. Dez 2009
Hi@all!
Ich habe mir mal den spass gemacht und eine eigene Rundungsfunktion geschrieben. Es geht hier um das Prinzip, ich möchte also verstehen, warum ich falsche Ergebnisse bekomme und nicht hören, dass Delphi ja eine interne Rundungsfunktion hat ;-) :
function roundexact(X:extended;digits:integer):extended;
var intzahl:integer;
intzahl2:integer;
begin