Runden auf einen bestimmten Wert

[Sir Rufo]

Da dauert das Suchen ja länger als das Tippen

Delphi-Quellcode:

function RoundTo( Value : extended; ToValue : array of extended ) : extended;
  var
    idx : integer;
  begin
    if High(ToValue) < 0 then
      Result := Value
    else
      begin
        Result := ToValue[ Low(ToValue) ];
        for idx := Low(ToValue) + 1 to High(ToValue) do
          if Abs( Result - Value ) > Abs( ToValue[ idx ] - Value ) then
            Result := ToValue[ idx ];
      end;
  end;

cu

Oliver