From 4638f9c19b8890805c770833b90af952bc56190e Mon Sep 17 00:00:00 2001 From: tobigun Date: Thu, 23 Jul 2009 19:37:27 +0000 Subject: 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 --- unicode/src/base/USongs.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'unicode/src/base/USongs.pas') 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); -- cgit v1.2.3