Hallo Nils,
Zitat von
Nils_13:
Delphi-Quellcode:
playindex := Max(0, (lbList.ItemIndex + 1) mod lbList.Items.Count);
if playindex = lbList.Items.Count then
playindex := 0;
Durch die Modulo-Operation wird die Variable
playindex niemals den Wert 'lbList.Items.Count' annehmen. Der Wertebereich ist 0..lbList.Items.Count-1, die IF-Anweisung eigentlich überflüssig.
Gruß Hawkeye