From d36fb79a6e0914a43fe9381c32dfdc4639e9a19e Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Wed, 18 Nov 2009 12:52:07 +0000 Subject: fixed new created playlist contents songs from old one items were not cleared on playlist creation git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1949 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/UPlaylist.pas | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/base') diff --git a/src/base/UPlaylist.pas b/src/base/UPlaylist.pas index 188b02a6..f12e06cf 100644 --- a/src/base/UPlaylist.pas +++ b/src/base/UPlaylist.pas @@ -343,6 +343,9 @@ begin end; Playlists[Result].Name := Name; + // clear playlist items + SetLength(Playlists[Result].Items, 0); + I := 1; PlaylistFile := PlaylistPath.Append(Name + '.upl'); while (PlaylistFile.Exists) do -- cgit v1.2.3