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);