SmallTune [0.3.1]

[toms]

Wenn Shuffle = True ist und auf "Next" geklickt wird im Player gibt es einen "Range check error" wenn die Playlist leer ist.

Der Fehler entsteht hier (unit dgstMediaClass.pas):

Delphi-Quellcode:

procedure TMediaClass.PlayNextTrack;
//....
      repeat
        Pos := random(GetDBItemsCount - 1) + 1;
        inc(i);
      until (fSongsAlreadyPlayed[Pos - 1] <> true) or (i >= Length(fMediaFileLst));

oder genauer gesagt hier: fSongsAlreadyPlayed[Pos - 1] Beheben lässt es sich wahrscheinlich so (kommt auf jeden Fall keine Fehlermeldung mehr)

until (i >= Length(fMediaFileLst)) or (fSongsAlreadyPlayed[Pos - 1] <> true);