Commit d6169dc

Nick committed on
Fixing some warnings about uninitialize variables
commit d6169dcf947afe1cf1a325c4c3c0be5ee818d4c1 parent 1d8f00f
3 changed files +6−1
Modifiedtracker.pas +2−0
@@ -415,6 +415,8 @@ end;
415 415
416 function TfrmTracker.CheckUnsavedChanges: Boolean; 416 function TfrmTracker.CheckUnsavedChanges: Boolean;
417 begin 417 begin
418 Result := True;
419
418 case MessageDlg('Save?', 'Do you want to save your work before closing this file?', 420 case MessageDlg('Save?', 'Do you want to save your work before closing this file?',
419 mtWarning, [mbYes, mbNo, mbCancel], 0) of 421 mtWarning, [mbYes, mbNo, mbCancel], 0) of
420 mrYes: begin 422 mrYes: begin
Modifiedtrackergrid.pas +3−0
@@ -457,6 +457,7 @@ begin
457 Recall.Pop; 457 Recall.Pop;
458 458
459 // Create the state we need to save 459 // Create the state we need to save
460 Actn := Default(TUndoRedoAction);
460 for I := Low(Patterns) to High(Patterns) do 461 for I := Low(Patterns) to High(Patterns) do
461 with Actn[I] do begin 462 with Actn[I] do begin
462 Pattern := Patterns[I]^; 463 Pattern := Patterns[I]^;
@@ -937,6 +938,8 @@ end;
937 938
938 function TTrackerGrid.GetAt(SelectionPos: TSelectionPos): Integer; 939 function TTrackerGrid.GetAt(SelectionPos: TSelectionPos): Integer;
939 begin 940 begin
941 Result := 0;
942
940 with Patterns[SelectionPos.X]^[SelectionPos.Y] do 943 with Patterns[SelectionPos.X]^[SelectionPos.Y] do
941 case SelectionPos.SelectedPart of 944 case SelectionPos.SelectedPart of
942 cpNote: Result := Note; 945 cpNote: Result := Note;
Modifiedutils.pas +1−1
@@ -39,7 +39,7 @@ end;
39 39
40 function TOrderMapHelper.CreateNewPattern(Key: Integer): PPattern; 40 function TOrderMapHelper.CreateNewPattern(Key: Integer): PPattern;
41 begin 41 begin
42 if IndexOf(Key) <> -1 then Exit; 42 if IndexOf(Key) <> -1 then Exit(KeyData[Key]);
43 43
44 New(Result); 44 New(Result);
45 BlankPattern(Result); 45 BlankPattern(Result);