aboutsummaryrefslogtreecommitdiffstats
path: root/Game
diff options
context:
space:
mode:
authoreddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-11-08 21:56:26 +0000
committereddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-11-08 21:56:26 +0000
commitfad9bf088ffa01246ca1ada66a0c1ab81f07108b (patch)
tree3d8f1a630831bdae2e9e2cd01f83b00afe61fb43 /Game
parente83126a1e93f274c32e4a243f93d1dc2bcb63c44 (diff)
downloadusdx-fad9bf088ffa01246ca1ada66a0c1ab81f07108b.tar.gz
usdx-fad9bf088ffa01246ca1ada66a0c1ab81f07108b.tar.xz
usdx-fad9bf088ffa01246ca1ada66a0c1ab81f07108b.zip
Removed the String() casts. Now BrowseDir is unicode capable again.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@600 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/USongs.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/Game/Code/Classes/USongs.pas b/Game/Code/Classes/USongs.pas
index dcca08bd..0ffa2a8d 100644
--- a/Game/Code/Classes/USongs.pas
+++ b/Game/Code/Classes/USongs.pas
@@ -318,8 +318,8 @@ begin
SLen := BrowsePos;
Song[SLen].Path := Dir;
- Song[SLen].Folder := Copy(String(Dir), Length(String(SongPath))+1, 10000);
- Song[SLen].Folder := Copy(String(Song[SLen].Folder), 1, Pos( PathDelim , Song[SLen].Folder)-1);
+ Song[SLen].Folder := Copy(Dir, Length(SongPath)+1, 10000);
+ Song[SLen].Folder := Copy(Song[SLen].Folder, 1, Pos( PathDelim , Song[SLen].Folder)-1);
Song[SLen].FileName := Files[i].Name;
if (AnalyseFile(Song[SLen]) = false) then