Mediaplayer Playlist Wie WMP

[Dönerboy]

spinedit1.maxvalue ist definiert aus der menge der lieder in der playlist, also aus der menge der strings in der listbox.

[Mithrandir]

Zitat von Dönerboy:

spinedit1.maxvalue ist definiert aus der menge der lieder in der playlist, also aus der menge der strings in der listbox.

Beantwortet meine Frage

Zitat:

Von welchem Typ ist denn SpinEdit1.MaxValue ?

leider überhaupt nicht.

Integer, String?

//Edit: Moah, sieht aus wie Integer. Aber bist du dir wirklich über den Sinn deines QT im Klaren?

[Dönerboy]

Achso, DAS MEINST DU, IST INTEGER

[Mithrandir]

Hast du dir schonmal die Hilfe zu Random angesehen? Dir ist klar, dass du so einen Multiplikator zwischen 0 und 1 bekommst und den dann rundest, oder? Und dir ist auch klar, dass die Menge der Items ungleich des Index ist, oder? Und dir ist hoffentlich auch klar, dass die Investition in die Architect etwas zu früh war, oder?

[lbccaleb]

Außerdem brauchst du die SpinEdit Komponente überhaupt gar nicht dafür, du kannst alles mit der StringList machen!

[Dönerboy]

Das mit der spinedit komponente, also das ich sie nicht brauche, ist mir bewusst
Könnte mir den trtzdem einer helfen, Hab von random in dem bereich wenig erfahrung...

[mr_emre_d]

Zitat von Daniel G:

Hast du dir schonmal die Hilfe zu Random angesehen? Dir ist klar, dass du so einen Multiplikator zwischen 0 und 1 bekommst ...

Na und ?
Wenn seine Liste 10 Elemente hat (MaxVal = 10), und Random als Beispiel 0.1415926535897932384626433832795 zurückliefert, dann wäre das ausgewählte Element
=Round(0.1415926535897932384626433832795*10)
=Round(1.415926535897932384626433832795)
=1

MfG

[Dönerboy]

So, habs Gelöst, Funktioniert jetzt dann doch:

Delphi-Quellcode:

if button2.Down=true then
begin
  mediaplayer1.Stop;
    mediaplayer1.Close;
  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;
  mediaplayer1.FileName:=listbox1.Items.Strings[i];
  mediaplayer1.Open;
  mediaplayer1.Play;
end

Wenn ich noch fragen hab, schreib ich sie wieder hier rein!!!

[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

[Mikescher]

Zitat von Dönerboy:

So, habs Gelöst, Funktioniert jetzt dann doch:

Delphi-Quellcode:

if button2.Down=true then
begin
  mediaplayer1.Stop;
  mediaplayer1.FileName:=listbox1.Items.Strings[random (listbox1.Items.Count)];
  mediaplayer1.Play;
end

Wenn ich noch fragen hab, schreib ich sie wieder hier rein!!!

Würde das nicht ausreichen

[EDIT]@BUG: meins ist kürzer 8) [/EDIT]