Changeset 60 for trunk/Packages/Kernel/Kernel.List.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.List.pas (moved) (moved from trunk/Packages/Kernel/UList.pas ) (4 diffs)

trunk/Packages/Kernel/Kernel.List.pas

@@ -1 @@
-unit UList;
-
-{$mode delphi}
+unit Kernel.List;
 
 interface
 
 uses
-  Classes, SysUtils, Contnrs, fgl;
+  Classes, SysUtils, Generics.Collections;
 
 type
@@ -16 +14 @@
   end;
 
-  { TNamedObjectList }
+  { TNamedObjects }
 
-  TNamedObjectList<T> = class(TFPGObjectList<T>)
+  TNamedObjects<T: class> = class(TObjectList<T>)
     function FindByName(Name: string): T;
   end;
@@ -25 +23 @@
 implementation
 
-{ TNamedObjectList }
+{ TNamedObjects }
 
-function TNamedObjectList<T>.FindByName(Name: string): T;
+function TNamedObjects<T>.FindByName(Name: string): T;
 var
   I: Integer;
@@ -37 +35 @@
 end;
 
-
 end.