Delphi/Lazarus: Zahl auf Tausenderstelle runden (12345678) auf (12345000)

Um auf die Tausender-Stelle zu runden, kannst du ihn Delphi nicht die normale round() Funktion verwenden, wie es zum Beispiel in PHP mit einer negativen Präzision möglich ist.

Probieren stattdessen einfach den folgenden Code aus:

var
  k: integer;
begin
  k := 123456;
  k := round(k/1000) * 1000;
  showmessage(inntostr(k));  // 123000

Wenn du wie in deinem Beispiel immer abrunden möchtest, kannst du die Funktion floor oder trunc anstelle von round verwenden:

k := 12345678;
k := floor(k/1000) * 1000;  // k = 12345000

Du hast mich mit deiner Frage auf die Idee gebracht, eine kleine Funktion zu schreiben, mit der man in Delphi oder Lazarus eine Zahl auf eine beliebige Anzahl von Nachkommastellen runden kann. Diese Funktion akzeptiert positive oder negative Werte als zweiten Parameter um zu einer beliebigen Position vor oder nach dem Dezimaltrennzeichen zu runden.
20.02.2014 um 23:48

Vielleicht hilft dir auch die Funktion RoundTo weiter, die bereits in der Unit Math enthalten ist:

x:=RoundTo(12345, 3);  //12000

Oder mit dem Setzen von Round Mode:

SetRoundMode(rmTruncate);
x:=RoundTo(12345678, 3);  //12345000

SetRoundMode akzeptiert die folgenden Parameter:

Um die RoundTo-Funktion davon abzuhalten, aufzurunden, kannst du einfach den rmTruncate Modus verwenden.
21.02.2014 um 02:26