Playlist Problem

[Bernd29bln]

Hallo,

meine playlist funktioniert super, sie hat nur ein problem, sie spielt immer nur den ersten titel.
wieso?


meine open procedure

Delphi-Quellcode:

var
   f: PChar;
begin
   if not OpenDialog1.Execute then Exit;
     f := PChar(OpenDialog1.FileName);
     strs[PlayIndex] := BASS_StreamCreateFile(False, f, 0, 0, 0);
   if strs[PlayIndex] <> 0 then
   begin
       Playlist := ListView1.Items.Add;
       Playlist.Caption := (opendialog1.FileName);
       Playlist.SubItems.Add(extractfilename(opendialog1.FileName));

      Inc(PlayIndex);
   end
   else
      Error('Error creating stream!');
end;

play procerure

Delphi-Quellcode:

begin

 playindex :=0;

    if PlayIndex < ListView1.Items.Count -1 then
     begin
       Playindex := Listview1.ItemIndex;
      
       Inc(PlayIndex);
// Play the stream (continuing from current position)
   if Playindex >= 0 then
      if not BASS_ChannelPlay(strs[Playindex], False) then
         Error('Error playing stream!');
  end;
end;

kann mir das mal jemand mal bitte erklären wo mein fehler liegt .

MfG bernd