diff options
| author | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-08 21:56:26 +0000 |
|---|---|---|
| committer | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-08 21:56:26 +0000 |
| commit | fad9bf088ffa01246ca1ada66a0c1ab81f07108b (patch) | |
| tree | 3d8f1a630831bdae2e9e2cd01f83b00afe61fb43 /Game/Code/Classes/USongs.pas | |
| parent | e83126a1e93f274c32e4a243f93d1dc2bcb63c44 (diff) | |
| download | usdx-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 'Game/Code/Classes/USongs.pas')
| -rw-r--r-- | Game/Code/Classes/USongs.pas | 4 |
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 |