Hallo EWeiss,
vielleicht nicht die eleganteste Art und Weise, aber gut nachzuvollziehen. So als Gedenkstütze in Pseudocode. Das Prinzip sollte klar sein...
Delphi-Quellcode:
var PlayList : TObjectList<SongItems>
PlayListShuffled : TObjectList<SongItems>
CurrentIdx : Integer;
i : Integer;
begin
[...]
for i := 0 to PlayList.Count-1 do begin
CurrentIdx := Random(PlayList.Count-1);
PlayListShuffled.AddItem(PlayList[CurrentIdx]);
PlayList.Delete(CurrentIdx);
end;
[...]
Viel Erfolg.
Jo ist klar frage mich nur wie lange das dauert bei einer liste mit mehr als 5000 Einträgen..
Muss es testen .. Danke schön für deinen Beitrag.. jetzt kann ich alle varianten testen
gruss