Changeset 298 for trunk/UItemList.pas

Timestamp:

Jul 10, 2019, 5:35:15 PM (5 years ago)

Author:

chronos

Message:

• Added: New item list type reference. Used in players for reference to selected nation.
• Modified: New game players selection migrated to dynamic item/list forms.

File:

• trunk/UItemList.pas (modified) (16 diffs)

trunk/UItemList.pas

@@ -9 +9 @@
 
 type
+  TItemList = class;
   TUndefinedEnum = (eeNone);
 
   TDataType = (dtNone, dtString, dtBoolean, dtInteger, dtFloat, dtColor,
-    dtTime, dtDate, dtDateTime, dtEnumeration);
+    dtTime, dtDate, dtDateTime, dtEnumeration, dtReference);
 
   { TItemField }
@@ -54 +55 @@
     function GetValueBoolean(Index: Integer): Boolean;
     function GetValueEnumeration(Index: Integer): TUndefinedEnum;
+    function GetValueReference(Index: Integer): TItem;
     function GetValueAsText(Index: Integer): string;
     procedure SetValue(Index: Integer; var Value); virtual;
@@ -61 +63 @@
     procedure SetValueBoolean(Index: Integer; Value: Boolean);
     procedure SetValueEnumeration(Index: Integer; Value: TUndefinedEnum);
+    procedure SetValueReference(Index: Integer; Value: TItem);
     procedure Assign(Source: TItem); virtual;
     procedure LoadFromNode(Node: TDOMNode); virtual;
@@ -66 +69 @@
     class function GetClassSysName: string; virtual;
     class function GetClassName: string; virtual;
+    function GetReferenceList(Index: Integer): TItemList; virtual;
+    constructor Create; virtual;
   end;
 
@@ -81 +86 @@
     function GetNewId: Integer;
     procedure Assign(Source: TItemList); virtual;
-    function AddItem(Name: string): TItem; virtual;
+    function AddItem(Name: string = ''): TItem; virtual;
+    function CreateItem(Name: string = ''): TItem; virtual;
     procedure LoadFromNode(Node: TDOMNode); virtual;
     procedure SaveToNode(Node: TDOMNode); virtual;
@@ -89 +95 @@
 const
   DataTypeStr: array[TDataType] of string = ('None', 'String', 'Boolean',
-    'Integer', 'Float', 'Color', 'Time', 'Date', 'DateTime', 'Enumeration');
+    'Integer', 'Float', 'Color', 'Time', 'Date', 'DateTime', 'Enumeration',
+    'Reference');
 
 resourcestring
@@ -136 +143 @@
   while Count < Source.Count do AddItem('');
   for I := 0 to Count - 1 do
-    Items[I].Assign(Source.Items[I]);
+    TItem(Items[I]).Assign(Source.Items[I]);
 end;
 
 function TItemList.AddItem(Name: string): TItem;
+begin
+  Result := CreateItem(Name);
+  Result.Id := GetNewId;
+  Add(Result);
+end;
+
+function TItemList.CreateItem(Name: string): TItem;
 begin
   Result := GetItemClass.Create;
   Result.Name := Name;
-  Result.Id := GetNewId;
-  Add(Result);
 end;
 
@@ -155 +167 @@
   Node2 := Node.FirstChild;
   while Assigned(Node2) and (Node2.NodeName = UnicodeString(GetItemClass.GetClassSysName)) do begin
-    NewItem := GetItemClass.Create;
+    NewItem := CreateItem;
     NewItem.LoadFromNode(Node2);
     Add(NewItem);
@@ -177 +189 @@
 constructor TItemList.Create(FreeObjects: Boolean);
 begin
-  inherited Create(FreeObjects);
+  inherited;
   NewId := 1;
 end;
@@ -273 +285 @@
     SetValueEnumeration(Field.Index, Source.GetValueEnumeration(Field.Index));
   end else
+  if Field.DataType = dtReference then begin
+    SetValueReference(Field.Index, Source.GetValueReference(Field.Index));
+  end else
     raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
 end;
 
 procedure TItem.LoadValueFromNode(Node: TDOMNode; Field: TItemField);
+var
+  ReadId: Integer;
+  ReferenceList: TItemList;
 begin
   if Field.DataType = dtString then begin
@@ -293 +311 @@
     SetValueEnumeration(Field.Index, TUndefinedEnum(ReadInteger(Node, Field.SysName, 0)));
   end else
+  if Field.DataType = dtReference then begin
+    ReadId := ReadInteger(Node, Field.SysName, 0);
+    ReferenceList := GetReferenceList(Field.Index);
+    if (ReadId > 0) and Assigned(ReferenceList) then
+      SetValueReference(Field.Index, TItem(ReferenceList.List[ReadId]));
+  end else
     raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
 end;
 
 procedure TItem.SaveValueToNode(Node: TDOMNode; Field: TItemField);
+var
+  Item: TItem;
 begin
   if Field.DataType = dtString then begin
@@ -312 +338 @@
   if Field.DataType = dtEnumeration then begin
     WriteInteger(Node, Field.SysName, Integer(GetValueEnumeration(Field.Index)));
+  end else
+  if Field.DataType = dtReference then begin
+    Item := TItem(GetValueReference(Field.Index));
+    if Assigned(Item) then WriteInteger(Node, Field.SysName, Item.Id)
+      else WriteInteger(Node, Field.SysName, 0);
   end else
     raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
@@ -329 +360 @@
   Fields := GetFields;
   try
-    Result.Assign(Fields[Index]);
+    Result.Assign(Fields.SearchByIndex(Index));
   finally
     Fields.Free;
@@ -365 +396 @@
 end;
 
+function TItem.GetValueReference(Index: Integer): TItem;
+begin
+  GetValue(Index, Result);
+end;
+
 function TItem.GetValueAsText(Index: Integer): string;
 var
-  Fields: TItemFields;
   Field: TItemField;
-begin
-  Fields := GetFields;
-  Field := GetField(Fields.IndexOf(Fields.SearchByIndex(Index)));
-  if Field.DataType = dtInteger then Result := IntToStr(GetValueInteger(Index))
-  else if Field.DataType = dtString then Result := GetValueString(Index)
-  else if Field.DataType = dtColor then Result := ''
-  else if Field.DataType = dtEnumeration then Result := Field.EnumStates[Integer(GetValueEnumeration(Index))]
-  else if Field.DataType = dtBoolean then begin
-    if GetValueBoolean(Index) then Result := SYes else Result := SNo;
-  end else
-    raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
-  Field.Free;
-  Fields.Free;
+  Item: TItem;
+begin
+  Field := GetField(Index);
+  try
+    if Field.DataType = dtInteger then Result := IntToStr(GetValueInteger(Index))
+    else if Field.DataType = dtString then Result := GetValueString(Index)
+    else if Field.DataType = dtColor then Result := ''
+    else if Field.DataType = dtEnumeration then Result := Field.EnumStates[Integer(GetValueEnumeration(Index))]
+    else if Field.DataType = dtReference then begin
+      Item := TItem(GetValueReference(Index));
+      if Assigned(Item) then Result := Item.Name
+        else Result := '';
+    end else if Field.DataType = dtBoolean then begin
+      if GetValueBoolean(Index) then Result := SYes else Result := SNo;
+    end else
+      raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
+  finally
+    Field.Free;
+  end;
 end;
 
@@ -411 +452 @@
 procedure TItem.SetValueEnumeration(Index: Integer;
   Value: TUndefinedEnum);
+begin
+  SetValue(Index, Value);
+end;
+
+procedure TItem.SetValueReference(Index: Integer; Value: TItem);
 begin
   SetValue(Index, Value);
@@ -474 +520 @@
 end;
 
+function TItem.GetReferenceList(Index: Integer): TItemList;
+begin
+  Result := nil;
+end;
+
+constructor TItem.Create;
+begin
+end;
+
 end.