Changeset 290 for trunk/UPlayer.pas

Timestamp:

Mar 25, 2019, 12:51:41 AM (6 years ago)

Author:

chronos

Message:

• Modified: List and item forms for BuildingKind and Nation converted to generic forms.

File:

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

trunk/UPlayer.pas

@@ -119 +119 @@
     Units: TUnits;
     Nation: TNation;
-    function GetFields: TItemFields; override;
+    class function GetFields: TItemFields; override;
     procedure GetValue(Index: Integer; out Value); override;
     procedure SetValue(Index: Integer; var Value); override;
@@ -1265 +1265 @@
 end;
 
-function TPlayer.GetFields: TItemFields;
+class function TPlayer.GetFields: TItemFields;
 begin
   Result := inherited;