From b8888af755c5ce6102d66bb057fc7e8d4b128b74 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sat, 13 Sep 2008 12:04:40 +0000 Subject: rename X: integer to NoteIndex: integer git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1379 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/USong.pas | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'src/base/USong.pas') diff --git a/src/base/USong.pas b/src/base/USong.pas index a99ca4a4..b3410550 100644 --- a/src/base/USong.pas +++ b/src/base/USong.pas @@ -360,7 +360,8 @@ var Param2: integer; Param3: integer; ParamS: string; - I,J,X: integer; + I, J: integer; + NoteIndex: integer; NoteType: Char; SentenceEnd, Rest, Time: Integer; @@ -441,13 +442,13 @@ begin Lines[CP].Line[Lines[CP].High].LyricWidth := glTextWidth(PChar(Lines[CP].Line[Lines[CP].High].Lyric)); //Total Notes Patch Lines[CP].Line[Lines[CP].High].TotalNotes := 0; - for X := 0 to high(Lines[CP].Line[Lines[CP].High].Note) do + for NoteIndex := 0 to high(Lines[CP].Line[Lines[CP].High].Note) do begin - if (Lines[CP].Line[Lines[CP].High].Note[X].NoteType = ntGolden) then - Lines[CP].Line[Lines[CP].High].TotalNotes := Lines[CP].Line[Lines[CP].High].TotalNotes + Lines[CP].Line[Lines[CP].High].Note[X].Length; + if (Lines[CP].Line[Lines[CP].High].Note[NoteIndex].NoteType = ntGolden) then + Lines[CP].Line[Lines[CP].High].TotalNotes := Lines[CP].Line[Lines[CP].High].TotalNotes + Lines[CP].Line[Lines[CP].High].Note[NoteIndex].Length; - if (Lines[CP].Line[Lines[CP].High].Note[X].NoteType <> ntFreestyle) then - Lines[CP].Line[Lines[CP].High].TotalNotes := Lines[CP].Line[Lines[CP].High].TotalNotes + Lines[CP].Line[Lines[CP].High].Note[X].Length; + if (Lines[CP].Line[Lines[CP].High].Note[NoteIndex].NoteType <> ntFreestyle) then + Lines[CP].Line[Lines[CP].High].TotalNotes := Lines[CP].Line[Lines[CP].High].TotalNotes + Lines[CP].Line[Lines[CP].High].Note[NoteIndex].Length; end; //Total Notes Patch End end @@ -459,12 +460,12 @@ begin Lines[Count].Line[Lines[Count].High].LyricWidth := glTextWidth(PChar(Lines[Count].Line[Lines[Count].High].Lyric)); //Total Notes Patch Lines[Count].Line[Lines[Count].High].TotalNotes := 0; - for X := 0 to high(Lines[Count].Line[Lines[Count].High].Note) do + for NoteIndex := 0 to high(Lines[Count].Line[Lines[Count].High].Note) do begin - if (Lines[Count].Line[Lines[Count].High].Note[X].NoteType = ntGolden) then - Lines[Count].Line[Lines[Count].High].TotalNotes := Lines[Count].Line[Lines[Count].High].TotalNotes + Lines[Count].Line[Lines[Count].High].Note[X].Length; - if (Lines[Count].Line[Lines[Count].High].Note[X].NoteType <> ntFreestyle) then - Lines[Count].Line[Lines[Count].High].TotalNotes := Lines[Count].Line[Lines[Count].High].TotalNotes + Lines[Count].Line[Lines[Count].High].Note[X].Length; + if (Lines[Count].Line[Lines[Count].High].Note[NoteIndex].NoteType = ntGolden) then + Lines[Count].Line[Lines[Count].High].TotalNotes := Lines[Count].Line[Lines[Count].High].TotalNotes + Lines[Count].Line[Lines[Count].High].Note[NoteIndex].Length; + if (Lines[Count].Line[Lines[Count].High].Note[NoteIndex].NoteType <> ntFreestyle) then + Lines[Count].Line[Lines[Count].High].TotalNotes := Lines[Count].Line[Lines[Count].High].TotalNotes + Lines[Count].Line[Lines[Count].High].Note[NoteIndex].Length; end; //Total Notes Patch End -- cgit v1.2.3