From 278ff525686374c51d542e608ee612da8cdaec6d Mon Sep 17 00:00:00 2001 From: tobigun Date: Sat, 7 Jun 2008 18:43:58 +0000 Subject: just some cleanup - replaced many German and Polish comments - replaced many cryptic var-names - IlNut replaced with LengthNote - renamed the global var "Filename" to "ConversionFilename" to prevent unintended use of it - more readable code (hopefully), especially NewNote and OnSentenceEnd - added some comments on elementary classes/records and their fields git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1137 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenEditConvert.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Game/Code/Screens/UScreenEditConvert.pas') diff --git a/Game/Code/Screens/UScreenEditConvert.pas b/Game/Code/Screens/UScreenEditConvert.pas index 7527dc68..a57e89fb 100644 --- a/Game/Code/Screens/UScreenEditConvert.pas +++ b/Game/Code/Screens/UScreenEditConvert.pas @@ -165,7 +165,7 @@ begin if Interaction = 3 then begin if SelectedNumber > 0 then begin Extract; - SaveSong(Song, Lines, ChangeFileExt(FileName, '.txt'), false); + SaveSong(Song, Lines, ChangeFileExt(ConversionFileName, '.txt'), false); end; end; @@ -396,7 +396,7 @@ begin MidiOut.Open; // MidiOut.SetVolume(100, 100); // temporary} - FileName := GamePath + 'file.mid'; + ConversionFileName := GamePath + 'file.mid'; {$IFDEF UseMIDIPort} MidiFile := TMidiFile.Create(nil); {$ENDIF} @@ -426,9 +426,9 @@ begin MidiOut.Open; - if FileExists(FileName) then + if FileExists(ConversionFileName) then begin - MidiFile.Filename := FileName; + MidiFile.Filename := ConversionFileName; MidiFile.ReadFile; -- cgit v1.2.3