Integer Wert auf 10ner Runden

[Matze]

Wenn du nicht hunderte Werte hast, kannst du getrost die erste Möglichkeit nutzen, die ist dann schnell genug. Das könnte so aussehen:

Delphi-Quellcode:

function ExtendedRound(Number, RoundTo: Integer): Integer;
begin
  result := Round(Number / RoundTo) * RoundTo;
end;

// Aufruf
ShowMessage(IntToStr(ExtendedRound(135, 10)));

Dies funktioniert übrigens auch mit negativen Werten.