Hi Nils,
so sollte es funktionieren:
Delphi-Quellcode:
procedure TFormPlayer.Image7Click(Sender: TObject);
var
i: integer;
begin
BASS_ChannelPause(channel);
position := 0;
Playlist.ItemIndex:= (PlayList.ItemIndex + 1) mod PlayList.Items.Count;
Channel := BASS_StreamCreateFile(FALSE, PChar(playlist.items[Playlist.ItemIndex]), 0, 0, 0);
if i >= 0 then
BASS_StreamPlay(Channel, False, 0);
end;
Zur Erklaerung:
Diese Zeile
Playlist.ItemIndex:= (PlayList.ItemIndex + 1) mod PlayList.Items.Count;
inkrementiert zuerst ItemIndex, und weisst diesem anschliessend den Rest aus der Division durch die Anzahl Elemente zu. Der Rueckgabewert ist naemlich >= 0 aber kleiner als PlayList.Items.Count. Somit wirst du nie eine
AV erhalten.
Greetz
alcaeus
[add]Werd ich in den Credits von deinem Player vermerkt? Schliesslich stammt ja fast schon der halbe Code von mir 
[/add]