Changeset 344 for trunk/Forms/FormItem.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/Forms/FormItem.pas (modified) (2 diffs)

trunk/Forms/FormItem.pas

@@ -80 +80 @@
   J: Integer;
   Control: TControl;
-  ReferenceList: TItemList;
+  ReferenceList: TItemList<TItem>;
   ReferenceItem: TItem;
 begin
@@ -106 +106 @@
       try
         TComboBox(Control).Items.Clear;
-        ReferenceList := Item.GetReferenceList(Index);
+        ReferenceList := TItemList<TItem>(Item.GetReferenceList(Index));
         if Assigned(ReferenceList) then
           for J := 0 to ReferenceList.Count - 1 do