diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:37:27 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-07-23 19:37:27 +0000 |
commit | 4638f9c19b8890805c770833b90af952bc56190e (patch) | |
tree | 8322fff49c6030e27422d315eb1934bc81a59dbe /unicode/src/base | |
parent | b747148d1b035e7ce59d6d96bde67ae8477957e4 (diff) | |
download | usdx-4638f9c19b8890805c770833b90af952bc56190e.tar.gz usdx-4638f9c19b8890805c770833b90af952bc56190e.tar.xz usdx-4638f9c19b8890805c770833b90af952bc56190e.zip |
Song sorting uses locale specific comparison
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1898 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/base')
-rw-r--r-- | unicode/src/base/USongs.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unicode/src/base/USongs.pas b/unicode/src/base/USongs.pas index c650c04d..5c1f570a 100644 --- a/unicode/src/base/USongs.pas +++ b/unicode/src/base/USongs.pas @@ -355,22 +355,22 @@ end; function CompareByEdition(Song1, Song2: Pointer): integer; begin - Result := CompareText(TSong(Song1).Edition, TSong(Song2).Edition); + Result := UTF8CompareText(TSong(Song1).Edition, TSong(Song2).Edition); end; function CompareByGenre(Song1, Song2: Pointer): integer; begin - Result := CompareText(TSong(Song1).Genre, TSong(Song2).Genre); + Result := UTF8CompareText(TSong(Song1).Genre, TSong(Song2).Genre); end; function CompareByTitle(Song1, Song2: Pointer): integer; begin - Result := CompareText(TSong(Song1).Title, TSong(Song2).Title); + Result := UTF8CompareText(TSong(Song1).Title, TSong(Song2).Title); end; function CompareByArtist(Song1, Song2: Pointer): integer; begin - Result := CompareText(TSong(Song1).Artist, TSong(Song2).Artist); + Result := UTF8CompareText(TSong(Song1).Artist, TSong(Song2).Artist); end; function CompareByFolder(Song1, Song2: Pointer): integer; @@ -380,7 +380,7 @@ end; function CompareByLanguage(Song1, Song2: Pointer): integer; begin - Result := CompareText(TSong(Song1).Language, TSong(Song2).Language); + Result := UTF8CompareText(TSong(Song1).Language, TSong(Song2).Language); end; procedure TSongs.Sort(Order: integer); |