diff options
| author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-11-18 12:52:07 +0000 |
|---|---|---|
| committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-11-18 12:52:07 +0000 |
| commit | d36fb79a6e0914a43fe9381c32dfdc4639e9a19e (patch) | |
| tree | 672f8175602b19c385822bcfdf4bdd066ed38977 /src/base | |
| parent | 69f8925636e89f9803490f3407380879eb0549e6 (diff) | |
| download | usdx-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 '')
| -rw-r--r-- | src/base/UPlaylist.pas | 3 |
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 |