From d576497365911a07a1ee174623256df53f1def8d Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 12 Jan 2009 16:39:01 +0000
Subject: AnsiStartsText() replaced to avoid usage of ANSI functions with UTF8
 strings

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1563 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UIni.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/unicode/src/base/UIni.pas b/unicode/src/base/UIni.pas
index 2bf49d9d..e90ae31c 100644
--- a/unicode/src/base/UIni.pas
+++ b/unicode/src/base/UIni.pas
@@ -269,7 +269,8 @@ uses
   UPlatform,
   USkins,
   URecord,
-  UCommandLine;
+  UCommandLine,
+  UUnicodeUtils;
 
 (**
  * Returns the filename without its fileextension
@@ -462,7 +463,7 @@ begin
   // Load song-paths
   for I := 0 to PathStrings.Count-1 do
   begin
-    if (AnsiStartsText('SongDir', PathStrings[I])) then
+    if (Pos('SONGDIR', UpperCase(PathStrings[I])) = 1) then
     begin
       AddSongPath(IniFile.ReadString('Directories', PathStrings[I], ''));
     end;
-- 
cgit v1.2.3