Changeset 60 for trunk/Packages/Kernel/Kernel.Scheduler.pas

Timestamp:

Apr 7, 2024, 11:26:09 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Packages/Kernel/Kernel.Scheduler.pas (moved) (moved from trunk/Packages/Kernel/UScheduler.pas ) (4 diffs)

trunk/Packages/Kernel/Kernel.Scheduler.pas

@@ -1 @@
-unit UScheduler;
-
-{$mode delphi}{$H+}
+unit Kernel.Scheduler;
 
 interface
 
 uses
-  Classes, SysUtils, UList, UClasses;
+  Classes, SysUtils, Kernel.List, Kernel.Classes;
 
 type
-    TTask = class;
+  TTask = class;
   TScheduler = class;
 
@@ -40 +38 @@
   TScheduler = class
     TaskClass: TTaskClass;
-    Tasks: TNamedObjectList<TTask>;
+    Tasks: TNamedObjects<TTask>;
     Running: Boolean;
     function GetCurrentTask: TTask; virtual;
@@ -80 +78 @@
 destructor TTask.Destroy;
 begin
-  Messages.Free;
-  inherited Destroy;
+  FreeAndNil(Messages);
+  inherited;
 end;
 
@@ -121 +119 @@
 begin
   TaskClass := TTask;
-  Tasks := TNamedObjectList<TTask>.Create;
+  Tasks := TNamedObjects<TTask>.Create;
 end;