Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi JVPlaylist oder filelistbox last file erkennen (https://www.delphipraxis.net/37494-jvplaylist-oder-filelistbox-last-file-erkennen.html)

kingflo 6. Jan 2005 15:00


JVPlaylist oder filelistbox last file erkennen
 
Hallo ich wollte mal was wissen und zwar kann mir einer von euch sagen, ob und wie ich die erkenne ob die Letzte Datei makiert ist oder wie ich rausbekomme wieviele Datein überhaupt in eienr FileListBox bzw JvPlaylist enthalten sind.

Also es geht bei mir darum, dass mein MediaPlayer nach beenden eines Liedes das nächste in der Playlist spielt. und zwar mach ich das so

Code:
     PlaylistAktuell.ItemIndex:=PlaylistAktuell.ItemIndex+1;
     FileToOpen:=PlaylistAktuell.Items.Strings[PlaylistAktuell.ItemIndex];
     PlayDahFile;
Aber wenn die Letzte Datei in der Playlist gespielt wird spielt er die dann logischerweise nochmal aber er soll dann wieder bei null anfangen.
Also irgendwie so:

Code:
   if PlaylistAktuell.ItemIndex = last then
    PlaylistAktuell.ItemIndex:=0
   else
    PlaylistAktuell.ItemIndex:=PlaylistAktuell.ItemIndex+1;

     FileToOpen:=PlaylistAktuell.Items.Strings[PlaylistAktuell.ItemIndex];
     PlayDahFile;
Wäre nett wenn mir da jemand helfen könnte

kingflo 6. Jan 2005 16:41

Re: JVPlaylist oder filelistbox last file erkennen
 
Hat sich erledigt habs jetzt so gemacht

Code:
   if PlaylistAktuell.ItemIndex <> PlaylistAktuell.Items.Count-1 then
   begin

Robert Marquardt 6. Jan 2005 17:06

Re: JVPlaylist oder filelistbox last file erkennen
 
Das ist genau der richtige Weg.
Ein TListBox kapselt zwei Dinge: Die Control zur Anzeige und die Liste der Eintraege.
Die Anzahl der Elemente steht daher in der Liste der Eintraege welche ein TStrings-Objekt ist.
Die aktuelle Position der Anzeige ist aber kein Teil der Liste. Sie ist Teil der Control.
Da die Control aber vergraben ist, wird ITemIndex als Property der TListBox gefuehrt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz