Kleines rechnen problem

[EWeiss]

Zitat von Aphton:

Das dürfte helfen...

Danke werde es mal anschauen..

Delphi-Quellcode:

        ID_TRACK_MASTERVOL:
        begin
          for IntI := 0 to 15 do
          begin
            OldVolVal := Volume[IntI];
            TempVal := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)) - OldVolVal;
            Volume[IntI] := Min(Volume[IntI] + TempVal, 100);
            SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, ID_VOLUME_FIRST + IntI), Volume[IntI]);
          end;
        end;

Wenn Volume[0]; einen wert von 67 hat kommt bei mir
TempVal = -22 heraus

Das ist dann schon der erste Fehler
Volume[0]; springt dann auf seinen ursprünglichen wert zurück.

EDIT:
Dein Beispiel geht nicht(geht schon)
Aber! da die anderen Regler alle nachziehen bis sie ebenfalls Hundert bzw. 0 erreicht haben.
Das dürfen sie aber nicht

Bei Hundert müssen alle anderen dann auf ihre aktuellen Position stehen bleiben.

gruss