Changeset 75 for trunk/Compiler/Target.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (5 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Compiler/Target.pas (moved) (moved from trunk/Compiler/UTarget.pas ) (5 diffs)

trunk/Compiler/Target.pas

@@ -1 @@
-unit UTarget;
-
-{$mode Delphi}{$H+}
+unit Target;
 
 interface
 
 uses
-  Classes, SysUtils, UProducer, UExecutor, SpecializedList;
+  Classes, SysUtils, Producer, Executor, Generics.Collections;
 
 type
@@ -17 +15 @@
     Producer: TProducer;
     Executor: TExecutor;
-    Compiler: TObject; //TCompiler
+    Compiler: TObject; // TCompiler
     constructor Create; virtual;
     destructor Destroy; override;
@@ -24 +22 @@
   TTargetClass = class of TTarget;
 
-  { TListTarget }
+  { TTargets }
 
-  TListTarget = class(TListObject)
+  TTargets = class(TObjectList<TTarget>)
     function SearchBySysName(Name: string): TTarget;
     procedure LoadToStrings(Strings: TStrings);
@@ -43 +41 @@
 destructor TTarget.Destroy;
 begin
-  Producer.Free;
-  Executor.Free;
-  inherited Destroy;
+  FreeAndNil(Producer);
+  FreeAndNil(Executor);
+  inherited;
 end;
 
-{ TListTarget }
+{ TTargets }
 
-function TListTarget.SearchBySysName(Name: string): TTarget;
+function TTargets.SearchBySysName(Name: string): TTarget;
 var
   I: Integer;
@@ -60 +58 @@
 end;
 
-procedure TListTarget.LoadToStrings(Strings: TStrings);
+procedure TTargets.LoadToStrings(Strings: TStrings);
 var
   I: Integer;