Changeset 60 for trunk/Packages/Kernel/Kernel.Classes.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.Classes.pas (moved) (moved from trunk/Packages/Kernel/UClasses.pas ) (3 diffs)

trunk/Packages/Kernel/Kernel.Classes.pas

@@ -1 @@
-unit UClasses;
-
-{$mode delphi}
+unit Kernel.Classes;
 
 interface
 
 uses
-  Classes, SysUtils, contnrs;
+  Classes, SysUtils, Contnrs;
 
 type
@@ -19 +17 @@
     destructor Destroy; override;
   end;
+
 
 implementation
@@ -42 +41 @@
 destructor TObjectQueue.Destroy;
 begin
-  List.Free;
-  inherited Destroy;
+  FreeAndNil(List);
+  inherited;
 end;