aboutsummaryrefslogtreecommitdiffstats
path: root/src/base
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-11-18 12:52:07 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-11-18 12:52:07 +0000
commitd36fb79a6e0914a43fe9381c32dfdc4639e9a19e (patch)
tree672f8175602b19c385822bcfdf4bdd066ed38977 /src/base
parent69f8925636e89f9803490f3407380879eb0549e6 (diff)
downloadusdx-d36fb79a6e0914a43fe9381c32dfdc4639e9a19e.tar.gz
usdx-d36fb79a6e0914a43fe9381c32dfdc4639e9a19e.tar.xz
usdx-d36fb79a6e0914a43fe9381c32dfdc4639e9a19e.zip
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
Diffstat (limited to 'src/base')
-rw-r--r--src/base/UPlaylist.pas3
1 files changed, 3 insertions, 0 deletions
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