Playlist: Wiederholungsproblem

[Hawkeye219]

Hallo Nils,

wenn lbList eine ListBox-Referenz ist, dann sollte die Bedingung in Zeile 20 niemals den Wert True annehmen. Der ItemIndex einer ListBox kann nur Werte im Bereich [-1..Items.Count-1] annehmen. Dies wird wahrscheinlich in Zeile 27 zum nächsten Fehler führen, weil du auf ein Element außerhalb des Felds fFiles zugreifst.

Den nächsten Index erhältst du so:

Delphi-Quellcode:

with lbList do
  if (Items.Count > 0) then
    ItemIndex := Succ(ItemIndex) mod Items.Count;

Gruß Hawkeye