aboutsummaryrefslogtreecommitdiffstats
path: root/unicode/src/base
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-07-23 19:37:27 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-07-23 19:37:27 +0000
commit4638f9c19b8890805c770833b90af952bc56190e (patch)
tree8322fff49c6030e27422d315eb1934bc81a59dbe /unicode/src/base
parentb747148d1b035e7ce59d6d96bde67ae8477957e4 (diff)
downloadusdx-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.pas10
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);