diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-01-12 16:39:01 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-01-12 16:39:01 +0000 |
| commit | d576497365911a07a1ee174623256df53f1def8d (patch) | |
| tree | 37e12b2770067f6db72c318b18583e5e4aaed76c /unicode | |
| parent | 5b261086c70aa5154f06874ddbb82493c31c67fb (diff) | |
| download | usdx-d576497365911a07a1ee174623256df53f1def8d.tar.gz usdx-d576497365911a07a1ee174623256df53f1def8d.tar.xz usdx-d576497365911a07a1ee174623256df53f1def8d.zip | |
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
Diffstat (limited to 'unicode')
| -rw-r--r-- | unicode/src/base/UIni.pas | 5 |
1 files 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; |