Changeset 65 for trunk/UTarget.pas

Timestamp:

Dec 5, 2014, 8:34:59 PM (10 years ago)

Author:

chronos

Message:

• Added: Confirmation dialog for closing and saving file.

File:

• trunk/UTarget.pas (modified) (4 diffs)

trunk/UTarget.pas

@@ -32 +32 @@
     function SearchByTargetPos(Pos: Integer): TDebugStep;
     procedure AddStep(SourcePos, TargetPos: Integer; Operation: TStepOperation);
+    procedure UpdateTargetPos(Old, New: Integer);
   end;
 
@@ -271 +272 @@
 end;
 
+procedure TDebugStepList.UpdateTargetPos(Old, New: Integer);
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) do begin
+    if TDebugStep(Items[I]).TargetPosition = Old then
+      TDebugStep(Items[I]).TargetPosition := New;
+    Inc(I);
+  end;
+end;
+
 
 { TTargetList }
@@ -594 +607 @@
       end;
     end;
+    DebugSteps.UpdateTargetPos(FProgramIndex, NewProgramIndex);
     Inc(FProgramIndex);
     Inc(NewProgramIndex);
@@ -734 +748 @@
     end;
     PreviousCommand := FProgram[FProgramIndex].Command;
+    DebugSteps.UpdateTargetPos(FProgramIndex, NewProgramIndex);
     Inc(FProgramIndex);
     Inc(NewProgramIndex);