From 21c1082f916cc9a4d7be625c132e02b1fc1d8012 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 18:09:11 +0000
Subject: - IPath integration - BASS is now unicode compatible

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1875 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/screens/UScreenEditConvert.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'unicode/src/screens/UScreenEditConvert.pas')

diff --git a/unicode/src/screens/UScreenEditConvert.pas b/unicode/src/screens/UScreenEditConvert.pas
index 5dfa3b43..28182097 100644
--- a/unicode/src/screens/UScreenEditConvert.pas
+++ b/unicode/src/screens/UScreenEditConvert.pas
@@ -55,7 +55,8 @@ uses
   USongs,
   USong,
   UMusic,
-  UThemes;
+  UThemes,
+  UPath;
 
 type
   TMidiNote = record
@@ -128,7 +129,7 @@ type
   end;
 
 var
-  ConversionFileName: string;
+  ConversionFileName: IPath;
 
 implementation
 
@@ -220,7 +221,7 @@ begin
             if CountSelectedTracks > 0 then
             begin
               Extract;
-              SResult := SaveSong(Song, Lines, ChangeFileExt(ConversionFileName, '.txt'),
+              SResult := SaveSong(Song, Lines, ConversionFileName.SetExtension('.txt'),
                        false);
               if (SResult <> ssrOK) then
               begin
@@ -499,7 +500,7 @@ begin
   AddButton(500, 20, 100, 40, Skin.GetTextureFileName('ButtonF'));
   AddButtonText(20, 5, 0, 0, 0, 'Save');
 
-  ConversionFileName := 'D:/daten/africa.mid';//GamePath + 'file.mid';
+  ConversionFileName := GamePath.Append('file.mid');
 
   for P := 0 to 100 do
   begin
@@ -525,7 +526,7 @@ begin
   MidiOut.Open;
   MidiFile := nil;
 
-  if FileExists(ConversionFileName) then
+  if ConversionFileName.Exists then
   begin
     MidiFile := TMidiFile.Create(nil);
     MidiFile.Filename := ConversionFileName;
-- 
cgit v1.2.3