Changeset 290 for trunk/UBuilding.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/UBuilding.pas (modified) (4 diffs)

trunk/UBuilding.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl, UGeometry, DOM, UXMLUtils;
+  Classes, SysUtils, UItemList;
 
 type
@@ -12 +12 @@
   { TBuildingKind }
 
-  TBuildingKind = class
-    Id: Integer;
-    Name: string;
+  TBuildingKind = class(TItem)
     Cost: Integer;
-    procedure Assign(Source: TBuildingKind);
-    procedure LoadFromNode(Node: TDOMNode);
-    procedure SaveToNode(Node: TDOMNode);
+    class function GetFields: TItemFields; override;
+    procedure GetValue(Index: Integer; out Value); override;
+    procedure SetValue(Index: Integer; var Value); override;
+    class function GetClassSysName: string; override;
+    class function GetClassName: string; override;
   end;
 
   { TBuildingKinds }
 
-  TBuildingKinds = class(TFPGObjectList<TBuildingKind>)
-    function AddNew(Name: string): TBuildingKind;
-    procedure LoadFromNode(Node: TDOMNode);
-    procedure SaveToNode(Node: TDOMNode);
-    procedure Assign(Source: TBuildingKinds);
+  TBuildingKinds = class(TItemList)
+    class function GetItemClass: TItemClass; override;
   end;
 
@@ -35 +32 @@
 
 resourcestring
-  SBuilding = 'Building';
+  SBuildingKind = 'Building';
+  SCost = 'Cost';
 
 
@@ -42 +40 @@
 { TBuildingKind }
 
-procedure TBuildingKind.Assign(Source: TBuildingKind);
+class function TBuildingKind.GetFields: TItemFields;
 begin
-  Name := Source.Name;
-  Cost := Source.Cost;
+  Result := inherited;
+  Result.AddField(2, 'Cost', SCost, dtInteger);
 end;
 
-procedure TBuildingKind.LoadFromNode(Node: TDOMNode);
+procedure TBuildingKind.GetValue(Index: Integer; out Value);
 begin
-  Id := ReadInteger(Node, 'Id', 0);
-  Name := ReadString(Node, 'Name', '');
-  Cost := ReadInteger(Node, 'Cost', 0);
+  if Index = 1 then string(Value) := Name
+  else if Index = 2 then Integer(Value) := Cost
+  else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
 end;
 
-procedure TBuildingKind.SaveToNode(Node: TDOMNode);
+procedure TBuildingKind.SetValue(Index: Integer; var Value);
 begin
-  WriteInteger(Node, 'Id', Id);
-  WriteString(Node, 'Name', Name);
-  WriteInteger(Node, 'Cost', Cost);
+  if Index = 1 then Name := string(Value)
+  else if Index = 2 then Cost := Integer(Value)
+  else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+end;
+
+class function TBuildingKind.GetClassSysName: string;
+begin
+  Result := 'BuildingKind';
+end;
+
+class function TBuildingKind.GetClassName: string;
+begin
+  Result := SBuildingKind;
 end;
 
 { TBuildingKinds }
 
-function TBuildingKinds.AddNew(Name: string): TBuildingKind;
+class function TBuildingKinds.GetItemClass: TItemClass;
 begin
-  Result := TBuildingKind.Create;
-  Result.Name := Name;
-  Add(Result);
-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]);
+  Result := TBuildingKind;
 end;