diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/base/UFiles.pas | 1 | ||||
| -rw-r--r-- | src/base/USong.pas | 10 |
2 files changed, 10 insertions, 1 deletions
diff --git a/src/base/UFiles.pas b/src/base/UFiles.pas index 2820a08c..5a258e3e 100644 --- a/src/base/UFiles.pas +++ b/src/base/UFiles.pas @@ -139,6 +139,7 @@ begin if Song.Edition <> 'Unknown' then SongFile.WriteLine('#EDITION:' + EncodeToken(Song.Edition)); if Song.Genre <> 'Unknown' then SongFile.WriteLine('#GENRE:' + EncodeToken(Song.Genre)); if Song.Language <> 'Unknown' then SongFile.WriteLine('#LANGUAGE:' + EncodeToken(Song.Language)); + if Song.Year <> 0 then SongFile.WriteLine('#YEAR:' + IntToStr(Song.Year)); SongFile.WriteLine('#MP3:' + EncodeToken(Song.Mp3.ToUTF8)); if Song.Cover.IsSet then SongFile.WriteLine('#COVER:' + EncodeToken(Song.Cover.ToUTF8)); diff --git a/src/base/USong.pas b/src/base/USong.pas index d76718d2..33e8d8df 100644 --- a/src/base/USong.pas +++ b/src/base/USong.pas @@ -119,6 +119,7 @@ type Genre: UTF8String; Edition: UTF8String; Language: UTF8String; + Year: Integer; Title: UTF8String; Artist: UTF8String; @@ -1034,6 +1035,12 @@ begin DecodeStringUTF8(Value, Language, Encoding) end + //Language Sorting + else if (Identifier = 'YEAR') then + begin + TryStrtoInt(Value, self.Year) + end + // Song Start else if (Identifier = 'START') then begin @@ -1256,7 +1263,8 @@ begin //Sortings: Genre := 'Unknown'; Edition := 'Unknown'; - Language := 'Unknown'; //Language Patch + Language := 'Unknown'; + Year := 0; // set to default encoding Encoding := DEFAULT_ENCODING; |