Changeset 349 for trunk/Player.pas

Timestamp:

Dec 27, 2024, 10:29:54 AM (2 weeks ago)

Author:

chronos

Message:

• Fixed: ItemList interface implementation was not working as expected. Implemented as proxy list instead.

File:

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

trunk/Player.pas

@@ -100 +100 @@
     procedure GetValue(Index: Integer; out Value); override;
     procedure SetValue(Index: Integer; var Value); override;
-    function GetReferenceList(Index: Integer): IList<TItem>; override;
+    function GetReferenceList(Index: Integer): TBaseItemList; override;
     class function GetClassSysName: string; override;
     class function GetClassName: string; override;
@@ -1257 +1257 @@
 end;
 
-function TPlayer.GetReferenceList(Index: Integer): IList<TItem>;
-begin
-  if Index = 2 then Result := TGame(Game).GameSystem.Nations
+function TPlayer.GetReferenceList(Index: Integer): TBaseItemList;
+begin
+  if Index = 2 then Result := TGame(Game).GameSystem.Nations.BaseItemList
   else Result := nil;
 end;