Runden auf einen bestimmten Wert

[Cire002]

Hi ;)

Irgedwie bin ich im Praktikumssemster angekommen und soll ein Programm für ein Virtuelles Musicinstrument schreiben, angelehnt an den Theremin.
Dies soll ich über verschiedene Eingabemöglichkeiten realsieren.
zb. Ein elektromagntisches Trackersystem mit 2 sensoren oder eine Webcam die die Bewegung der Hände erfasst.
So das reicht an Vorgeschichte^^

Nun steh ich vor einem ganz natürlichen Problem, das ich die daten nicht so bekommen wie ich sie wirklich brauche.
Es würde mir das Leben unheimlich erleichtern, wenn es in delphi 7 ein funktion gäbe die Werte in ein bestimmte Richtung runden.
Als Beispiel: Ich hab zwischen 10 Werten 3 Punkte auf die gerundet werden soll, immer dort wo er am nähsten dran ist.
Weiß jmd ob es so was schon gibt oder ob ich mir da selber was ausdenken sollte?

MFG Eric

[Wolfgang Mix]

Was Du suchst, findest Du wahrscheinlich hier

Gruß

Wolfgang

[Tryer]

Etwas fertiges gibt es da nicht, aber es sollte doch wohl kein Problem sein den Wert mit den zwei "Bruchstellen" zu vergleichen und danach den passenden der drei Werte auszuwählen?

Grüsse, Dirk

[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