From fad9bf088ffa01246ca1ada66a0c1ab81f07108b Mon Sep 17 00:00:00 2001 From: eddie-0815 Date: Thu, 8 Nov 2007 21:56:26 +0000 Subject: 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 --- Game/Code/Classes/USongs.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Game/Code/Classes') 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 -- cgit v1.2.3