diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-07 20:59:33 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-11-07 20:59:33 +0000 |
commit | 36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff (patch) | |
tree | a5ad79412eea43e1006a786a39013e3db72fdd34 /unicode/src/base/UPlaylist.pas | |
parent | 2783f97c6f2e9e72a306e0325b911db4df425032 (diff) | |
download | usdx-36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff.tar.gz usdx-36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff.tar.xz usdx-36ad87b2e0d2f28ef7dc1e8c43c9aa2d1024daff.zip |
- string replaced with UTF8String (although it's just a typedef) to mark UTF8 strings.
- misc. unicode compatibility fixes
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1509 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base/UPlaylist.pas')
-rw-r--r-- | unicode/src/base/UPlaylist.pas | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/unicode/src/base/UPlaylist.pas b/unicode/src/base/UPlaylist.pas index 11ed84de..09043a1b 100644 --- a/unicode/src/base/UPlaylist.pas +++ b/unicode/src/base/UPlaylist.pas @@ -38,15 +38,15 @@ uses type TPlaylistItem = record - Artist: String; - Title: String; + Artist: UTF8String; + Title: UTF8String; SongID: Integer; end; APlaylistItem = array of TPlaylistItem; TPlaylist = record - Name: String; + Name: string; Filename: String; Items: APlaylistItem; end; @@ -68,18 +68,18 @@ type constructor Create; Procedure LoadPlayLists; - Function LoadPlayList(Index: Cardinal; Filename: String): Boolean; + Function LoadPlayList(Index: Cardinal; const Filename: String): Boolean; Procedure SavePlayList(Index: Cardinal); Procedure SetPlayList(Index: Cardinal); - Function AddPlaylist(Name: String): Cardinal; + Function AddPlaylist(const Name: string): Cardinal; Procedure DelPlaylist(const Index: Cardinal); Procedure AddItem(const SongID: Cardinal; const iPlaylist: Integer = -1); Procedure DelItem(const iItem: Cardinal; const iPlaylist: Integer = -1); - Procedure GetNames(var PLNames: array of String); + Procedure GetNames(var PLNames: array of string); Function GetIndexbySongID(const SongID: Cardinal; const iPlaylist: Integer = -1): Integer; end; @@ -151,7 +151,7 @@ end; //---------- //LoadPlayList - Load a Playlist in the Array //---------- -Function TPlayListManager.LoadPlayList(Index: Cardinal; Filename: String): Boolean; +Function TPlayListManager.LoadPlayList(Index: Cardinal; const Filename: String): Boolean; var F: TextFile; Line: String; @@ -159,7 +159,7 @@ Function TPlayListManager.LoadPlayList(Index: Cardinal; Filename: String): Bo SongID: Integer; Len: Integer; - Function FindSong(Artist, Title: String): Integer; + Function FindSong(Artist, Title: UTF8String): Integer; var I: Integer; begin Result := -1; @@ -323,7 +323,7 @@ end; //---------- //AddPlaylist - Adds a Playlist and Returns the Index //---------- -Function TPlayListManager.AddPlaylist(Name: String): Cardinal; +Function TPlayListManager.AddPlaylist(const Name: string): Cardinal; var I: Integer; begin |