diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-06-07 18:43:58 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-06-07 18:43:58 +0000 |
commit | 278ff525686374c51d542e608ee612da8cdaec6d (patch) | |
tree | 48da11dffc37e5212c32b057c5e75f0577574f0e /Game/Code/Screens/UScreenEditConvert.pas | |
parent | 886f2893fba13ad058ee18f15a306e49456bd8c5 (diff) | |
download | usdx-278ff525686374c51d542e608ee612da8cdaec6d.tar.gz usdx-278ff525686374c51d542e608ee612da8cdaec6d.tar.xz usdx-278ff525686374c51d542e608ee612da8cdaec6d.zip |
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
Diffstat (limited to '')
-rw-r--r-- | Game/Code/Screens/UScreenEditConvert.pas | 8 |
1 files changed, 4 insertions, 4 deletions
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; |