Changeset 289 for trunk/UBuilding.pas

Timestamp:

Mar 24, 2019, 11:15:07 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to add building kinds to game system.

File:

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

trunk/UBuilding.pas

@@ -9 +9 @@
 
 type
+
+  { TBuildingKind }
+
   TBuildingKind = class
     Id: Integer;
     Name: string;
     Cost: Integer;
+    procedure Assign(Source: TBuildingKind);
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
   end;
 
@@ -19 +25 @@
   TBuildingKinds = class(TFPGObjectList<TBuildingKind>)
     function AddNew(Name: string): TBuildingKind;
+    procedure LoadFromNode(Node: TDOMNode);
+    procedure SaveToNode(Node: TDOMNode);
+    procedure Assign(Source: TBuildingKinds);
   end;
 
@@ -25 +34 @@
   end;
 
+resourcestring
+  SBuilding = 'Building';
+
 
 implementation
+
+{ TBuildingKind }
+
+procedure TBuildingKind.Assign(Source: TBuildingKind);
+begin
+  Name := Source.Name;
+  Cost := Source.Cost;
+end;
+
+procedure TBuildingKind.LoadFromNode(Node: TDOMNode);
+begin
+  Id := ReadInteger(Node, 'Id', 0);
+  Name := ReadString(Node, 'Name', '');
+  Cost := ReadInteger(Node, 'Cost', 0);
+end;
+
+procedure TBuildingKind.SaveToNode(Node: TDOMNode);
+begin
+  WriteInteger(Node, 'Id', Id);
+  WriteString(Node, 'Name', Name);
+  WriteInteger(Node, 'Cost', Cost);
+end;
 
 { TBuildingKinds }
@@ -37 +71 @@
 end;
 
+procedure TBuildingKinds.LoadFromNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TBuildingKind;
+begin
+  Count := 0;
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'BuildingKind') do begin
+    NewItem := TBuildingKind.Create;
+    NewItem.LoadFromNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TBuildingKinds.SaveToNode(Node: TDOMNode);
+var
+  I: Integer;
+  NewNode2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do
+  with Items[I] do begin
+    NewNode2 := Node.OwnerDocument.CreateElement('BuildingKind');
+    Node.AppendChild(NewNode2);
+    SaveToNode(NewNode2);
+  end;
+end;
+
+procedure TBuildingKinds.Assign(Source: TBuildingKinds);
+var
+  I: Integer;
+begin
+  while Count > Source.Count do Delete(Count - 1);
+  while Count < Source.Count do AddNew('');
+  for I := 0 to Count - 1 do
+    Items[I].Assign(Source.Items[I]);
+end;
+
 end.