|
Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: Single runden
18. Mär 2015, 20:15
Wenn Dir ein Double reicht, dann kannst Du folgendes machen, um die richtigen gerundeten Werte zu erhalten:
Delphi-Quellcode:
var
x2: Double;
y2: Double;
begin
SetPrecisionMode(pmDouble);
SetRoundMode(rmTruncate);
x2 := 44.99995;
y2 := 4.99995;
ShowMessage(FloatToStr(SimpleRoundTo(x2, -4)));
ShowMessage(FloatToStr(SimpleRoundTo(y2, -4)));
end;
Deine Gleitkomma-Variablen müssen allerdings vom Typ Double sein.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
|