Delphi/Lazarus: Zahl auf die nächsten 10, 100 oder 1000 runden

Ja, es gibt eine Funktion und du kannst sogar dieselbe Funktion benutzen wie für das Runden auf Nachkommastellen.

Hier ist ein Beispiel:

x := 12345.12345;
k := RoundTo(x, -3);  // k = 12345.123
k := RoundTo(x, -2);  // k = 12345.12
k := RoundTo(x, -1);  // k = 12345.1
k := RoundTo(x,  0);  // k = 12345
k := RoundTo(x,  1);  // k = 12340
k := RoundTo(x,  2);  // k = 12300
k := RoundTo(x,  3);  // k = 12000
k := RoundTo(x,  4);  // k = 10000

Je nachdem ob wir der Funktion RoundTo einen positiven oder einen negativen Wert übergeben, wird entweder vor oder nach dem Komma gerundet. Um auf die Zehnerstelle zu runden müsstest du also entsprechend "1" übergeben, "2" für die Hunderterstelle, "3" für die Tausenderstelle und so weiter.

Wichtig: Damit es funktionieren, musst du die Unit Math hinzufügen. Wenn du die Unit nicht verwenden möchtest, gibt es hier auch noch weitere Ideen, diese Aufgabe zu lösen.
23.01.2016 um 14:20