Changeset 299 for trunk/UBuilding.pas

Timestamp:

Jul 10, 2019, 5:48:18 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Error in case of missing building kind.

File:

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

trunk/UBuilding.pas

@@ -42 +42 @@
   public
     Kind: TBuildingKind;
+    procedure Assign(Source: TItem); override;
     property MapCell: TObject read FMapCell write SetMapCell; // TMapCell;
   end;
@@ -88 +89 @@
   FMapCell := AValue;
   if Assigned(FMapCell) then TCell(FMapCell).Building := Self;
+end;
+
+procedure TBuilding.Assign(Source: TItem);
+begin
+  inherited;
+  Kind := TBuilding(Source).Kind;
 end;