From dc3c42586733e84bc5d92c037f837f5a83e96bd9 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 21 Apr 2010 23:58:40 +0000
Subject: - cleanup - made TSortingType an enum

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2271 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UCatCovers.pas |  7 ++++---
 src/base/UIni.pas       | 19 ++++++++++++-------
 src/base/USongs.pas     | 10 +++++-----
 3 files changed, 21 insertions(+), 15 deletions(-)

(limited to 'src')

diff --git a/src/base/UCatCovers.pas b/src/base/UCatCovers.pas
index d33bbbe1..433763d8 100644
--- a/src/base/UCatCovers.pas
+++ b/src/base/UCatCovers.pas
@@ -92,6 +92,7 @@ var
   Ini: TMemIniFile;
   List: TStringlist;
   I, J: Integer;
+  SortType: TSortingType;
   Filename: IPath;
   Name, TmpName: UTF8String;
   CatCover: IPath;
@@ -131,12 +132,12 @@ begin
     Filename := CoversPath.Append(FileInfo.Name);
     Name := FileInfo.Name.SetExtension('').ToUTF8;
 
-    for I := 0 to high(ISorting) do
+    for SortType := Low(TSortingType) to High(TSortingType) do
     begin
       TmpName := Name;
-      if (I = sTitle) and (UTF8Pos('Title', TmpName) <> 0) then
+      if (SortType = sTitle) and (UTF8Pos('Title', TmpName) <> 0) then
         UTF8Delete(TmpName, UTF8Pos('Title', TmpName), 5)
-      else if (I = sArtist) and (UTF8Pos('Artist', TmpName) <> 0) then
+      else if (SortType = sArtist) and (UTF8Pos('Artist', TmpName) <> 0) then
         UTF8Delete(TmpName, UTF8Pos('Artist', TmpName), 6);
 
       if not CoverExists(I, TmpName) then
diff --git a/src/base/UIni.pas b/src/base/UIni.pas
index 36c3cce0..6b93d7ba 100644
--- a/src/base/UIni.pas
+++ b/src/base/UIni.pas
@@ -171,6 +171,10 @@ var
   ITheme:      TUTF8StringDynArray;
   ISkin:       TUTF8StringDynArray;
 
+{*
+ * Options
+ *}
+
 const
   IPlayers:     array[0..4] of UTF8String = ('1', '2', '3', '4', '6');
   IPlayersVals: array[0..4] of integer    = ( 1 ,  2 ,  3 ,  4 ,  6 );
@@ -178,15 +182,12 @@ const
   IDifficulty:  array[0..2] of UTF8String = ('Easy', 'Medium', 'Hard');
   ITabs:        array[0..1] of UTF8String = ('Off', 'On');
 
+const
   ISorting:     array[0..6] of UTF8String = ('Edition', 'Genre', 'Language', 'Folder', 'Title', 'Artist', 'Artist2');
-  sEdition  = 0;
-  sGenre    = 1;
-  sLanguage = 2;
-  sFolder   = 3;
-  sTitle    = 4;
-  sArtist   = 5;
-  sArtist2  = 6;
+type
+  TSortingType = (sEdition, sGenre, sLanguage, sFolder, sTitle, sArtist, sArtist2);
 
+const  
   IDebug:            array[0..1] of UTF8String  = ('Off', 'On');
 
   IScreens:          array[0..1] of UTF8String  = ('1', '2');
@@ -256,6 +257,10 @@ const
   IChannelPlayer: array[0..6] of UTF8String = ('Off', '1', '2', '3', '4', '5', '6');
   IMicBoost:      array[0..3] of UTF8String = ('Off', '+6dB', '+12dB', '+18dB');
 
+{*
+ * Translated options
+ *}
+
 var
   ILanguageTranslated:         array of UTF8String;
 
diff --git a/src/base/USongs.pas b/src/base/USongs.pas
index baeec13a..0056d75b 100644
--- a/src/base/USongs.pas
+++ b/src/base/USongs.pas
@@ -61,6 +61,7 @@ uses
   {$ENDIF}
   UPath,
   USong,
+  UIni,
   UCatCovers;
 
 type
@@ -111,7 +112,7 @@ type
     procedure BrowseDir(Dir: IPath); // should return number of songs in the future
     procedure BrowseTXTFiles(Dir: IPath);
     procedure BrowseXMLFiles(Dir: IPath);
-    procedure Sort(Order: integer);
+    procedure Sort(Order: TSortingType);
     property  Processing: boolean read fProcessing;
   end;
 
@@ -162,7 +163,6 @@ uses
   UFiles,
   UGraphic,
   UMain,
-  UIni,
   UPathUtils,
   UNote,
   UFilesystem,
@@ -394,7 +394,7 @@ begin
   Result := UTF8CompareText(TSong(Song1).Language, TSong(Song2).Language);
 end;
 
-procedure TSongs.Sort(Order: integer);
+procedure TSongs.Sort(Order: TSortingType);
 var
   CompareFunc: TListSortCompare;
 begin
@@ -428,7 +428,7 @@ end;
 
 procedure TCatSongs.SortSongs();
 begin
-  case Ini.Sorting of
+  case TSortingType(Ini.Sorting) of
     sEdition: begin
         Songs.Sort(sTitle);
         Songs.Sort(sArtist);
@@ -528,7 +528,7 @@ begin
     // if tabs are on, add section buttons for each new section
     if (Ini.Tabs = 1) then
     begin
-      case (Ini.Sorting) of
+      case (TSortingType(Ini.Sorting)) of
         sEdition: begin
           if (CompareText(CurCategory, CurSong.Edition) <> 0) then
           begin
-- 
cgit v1.2.3