Changeset 111 for trunk/UTarget.pas

Timestamp:

May 12, 2019, 10:04:21 PM (6 years ago)

Author:

chronos

Message:

• Modified: TemplateGenerics replaced by fgl generics.

File:

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

trunk/UTarget.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList, Dialogs,
+  Classes, SysUtils, StrUtils, Registry, URegistry, fgl, Dialogs,
   FileUtil, Process, Menus, LazFileUtils;
 
@@ -28 +28 @@
   { TDebugStepList }
 
-  TDebugStepList = class(TListObject)
+  TDebugStepList = class(TFPGObjectList<TDebugStep>)
     function SearchBySourcePos(Pos: Integer): TDebugStep;
     function SearchByTargetPos(Pos: Integer): TDebugStep;
@@ -42 +42 @@
   { TBreakPointList }
 
-  TBreakPointList = class(TListObject)
+  TBreakPointList = class(TFPGObjectList<TBreakPoint>)
     procedure AddItem(TargetAddress: Integer);
     procedure SetSystem(TargetAddress: Integer);
@@ -57 +57 @@
   { TMessageList }
 
-  TMessageList = class(TListObject)
+  TMessageList = class(TFPGObjectList<TMessage>)
   private
     FOnChange: TNotifyEvent;
@@ -133 +133 @@
   { TTargetList }
 
-  TTargetList = class(TListObject)
+  TTargetList = class(TFPGObjectList<TTarget>)
     procedure LoadFromRegistry(Context: TRegistryContext);
     procedure SaveToRegistry(Context: TRegistryContext);