Changeset 125 for trunk/UTarget.pas

Timestamp:

Jan 14, 2022, 3:15:52 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/UTarget.pas

@@ -173 +173 @@
 begin
   if Count > 0 then begin
-    TMessage(Last).Text := TMessage(Last).Text + Text;
+    Last.Text := Last.Text + Text;
     DoChange;
   end else AddMessage(Text);
@@ -210 +210 @@
 begin
   for I := Count - 1 downto 0 do
-    if TBreakPoint(Items[I]).System then Delete(I);
+    if Items[I].System then Delete(I);
 end;
 
@@ -218 +218 @@
 begin
   I := 0;
-  while (I < Count) and (TBreakPoint(Items[I]).TargetAddress < Pos) do Inc(I);
-  if I < Count then Result := TBreakPoint(Items[I])
+  while (I < Count) and (Items[I].TargetAddress < Pos) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -231 +231 @@
 begin
   I := 0;
-  while (I < Count) and (TDebugStep(Items[I]).SourcePosition < Pos) do Inc(I);
-  if I < Count then Result := TDebugStep(Items[I])
+  while (I < Count) and (Items[I].SourcePosition < Pos) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -241 +241 @@
 begin
   I := 0;
-  while (I < Count) and (TDebugStep(Items[I]).ProgramPosition < Pos) do Inc(I);
-  if I < Count then Result := TDebugStep(Items[I])
+  while (I < Count) and (Items[I].ProgramPosition < Pos) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -252 +252 @@
 begin
   I := 0;
-  while (I < Count) and (TDebugStep(Items[I]).TargetPosition < Pos) do Inc(I);
-  if I < Count then Result := TDebugStep(Items[I])
+  while (I < Count) and (Items[I].TargetPosition < Pos) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -262 +262 @@
 begin
   I := 0;
-  while (I < Count) and (TDebugStep(Items[I]).ProgramPosition < Pos) do Inc(I);
+  while (I < Count) and (Items[I].ProgramPosition < Pos) do Inc(I);
   if I < Count then Result := I
     else Result := -1;
@@ -289 +289 @@
   Last := SearchIndexByProgramPos(OldProgramTo);
   for I := Last downto First + 1 do Delete(I);
-  TDebugStep(Items[First]).ProgramPosition := NewProgram;
-  TDebugStep(Items[First]).TargetPosition := NewTarget;
+  Items[First].ProgramPosition := NewProgram;
+  Items[First].TargetPosition := NewTarget;
 end;
 
@@ -304 +304 @@
     CurrentContext := Context;
     for I := 0 to Count - 1 do
-      TTarget(Items[I]).LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + TTarget(Items[I]).Name));
+      Items[I].LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + TTarget(Items[I]).Name));
   finally
     Free;
@@ -318 +318 @@
     CurrentContext := Context;
     for I := 0 to Count - 1 do
-    with TTarget(Items[I]) do
-      TTarget(Items[I]).SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + TTarget(Items[I]).Name));
+    with Items[I] do
+      Items[I].SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + TTarget(Items[I]).Name));
   finally
     Free;
@@ -330 +330 @@
 begin
   I := 0;
-  while (I < Count) and (TTarget(Items[I]).Name <> Name) do Inc(I);
-  if I < Count then Result := TTarget(Items[I])
+  while (I < Count) and (Items[I].Name <> Name) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -345 +345 @@
     for I := 0 to Count - 1 do begin
       NewMenuItem := TMenuItem.Create(MenuItem);
-      NewMenuItem.Caption := TTarget(Items[I]).Name;
+      NewMenuItem.Caption := Items[I].Name;
       NewMenuItem.OnClick := Action;
-      NewMenuItem.ImageIndex := TTarget(Items[I]).ImageIndex;
-      if TTarget(Items[I]) = CurrentTarget then NewMenuItem.Checked := True;
+      NewMenuItem.ImageIndex := Items[I].ImageIndex;
+      if Items[I] = CurrentTarget then NewMenuItem.Checked := True;
       MenuItem.Add(NewMenuItem);
     end;
@@ -407 +407 @@
   FreeAndNil(DebugSteps);
   FreeAndNil(BreakPoints);
-  inherited Destroy;
+  inherited;
 end;
 
@@ -505 +505 @@
 procedure TTarget.Pause;
 begin
-
 end;
 
@@ -514 +513 @@
 procedure TTarget.StepOver;
 begin
-
 end;
 
 procedure TTarget.StepInto;
 begin
-
 end;
 
 procedure TTarget.StepOut;
 begin
-
 end;
 
 procedure TTarget.RunToCursor(Pos: Integer);
 begin
-
 end;