Changeset 344 for trunk/UnitKind.pas

Timestamp:

Dec 23, 2024, 8:16:05 AM (10 hours ago)

Author:

chronos

Message:

• Modified: Improved implementation of TItemList class to be generic class to avoid explicit typecasting.

File:

• trunk/UnitKind.pas (modified) (2 diffs)

trunk/UnitKind.pas

@@ -25 +25 @@
   { TUnitKinds }
 
-  TUnitKinds = class(TItemList)
+  TUnitKinds = class(TItemList<TUnitKind>)
     constructor Create(FreeObjects: Boolean = True);
-    class function GetItemClass: TItemClass; override;
   end;
 
@@ -96 +95 @@
 end;
 
-class function TUnitKinds.GetItemClass: TItemClass;
-begin
-  Result := TUnitKind;
-end;
-
 end.