Ok, so gut klappt es auch nicht...
Habe Noch eine Random Funktion eingebaut, aber jetzt schmiert das prog erst richtig ab:
"listenindex...."
Hab alles versucht und weiß leider nicht weiter:
Delphi-Quellcode:
if button2.Down=true then //zufalls Button
begin
mediaplayer1.Stop;
mediaplayer1.Close;
i:=spinedit1.Value;
spinedit1.MinValue:=0;
spinedit1.MaxValue:=listbox1.Items.Count; //musste es über spinedit regeln
Spinedit1.Value:=round(random*spinedit1.maxValue); //da ist glaub ich der fehler
mediaplayer1.FileName:=listbox1.Items.Strings[i];
mediaplayer1.open;
mediaplayer1.Play;
end
falls es wichtig ist, Hab
Rad Studio 2009 Architect, Also auch Delphi 2009.