Mediaplayer Playlist Wie WMP

[BUG]

Zitat von Dönerboy:

Delphi-Quellcode:

case random (listbox1.Items.Count) of
    0:i:=0;
    1:i:=1;
    2:i:=2;
    3:i:=3;
    4:i:=4;
    5:i:=5;
    6:i:=6;
    7:i:=7;
    8:i:=8;
    9:i:=9;
    10:i:=10;
    11:i:=11;
    12:i:=12;
    13:i:=13;
    14:i:=14;
    15:i:=15;
    16:i:=16;
    17:i:=17;
    18:i:=18;
    19:i:=19;
    20:i:=20;
    21:i:=21;
    22:i:=22;
    23:i:=23;
    24:i:=24;
    25:i:=25;
    26:i:=26;
    27:i:=27;
    28:i:=28;
    29:i:=29;
end;

Würde da nicht folgendes ausreichen i := random(listbox1.Items.Count); MfG,
Bug