Changeset 296 for trunk/UBuilding.pas

Timestamp:

Mar 29, 2019, 12:58:09 PM (6 years ago)

Author:

chronos

Message:

• Added: New enumeration field type in generic TItem classes.

File:

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

trunk/UBuilding.pas

@@ -52 +52 @@
   SCost = 'Cost';
   SSpecialType = 'Special type';
+  SNone = 'None';
+  SCity = 'City';
 
 
@@ -83 +85 @@
 
 class function TBuildingKind.GetFields: TItemFields;
+var
+  Field: TItemField;
 begin
   Result := inherited;
   Result.AddField(2, 'Cost', SCost, dtInteger);
-  Result.AddField(3, 'SpecialType', SSpecialType, dtInteger);
+  Field := Result.AddField(3, 'SpecialType', SSpecialType, dtEnumeration);
+  Field.EnumStates.Add(SNone);
+  Field.EnumStates.Add(SCity);
 end;
 
@@ -94 +100 @@
   else if Index = 2 then Integer(Value) := Cost
   else if Index = 3 then TBuildingSpecialType(Value) := SpecialType
-  else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+  else inherited;
 end;
 
@@ -102 +108 @@
   else if Index = 2 then Cost := Integer(Value)
   else if Index = 3 then SpecialType := TBuildingSpecialType(Value)
-  else raise Exception.Create('Unsupported value index ' + IntToStr(Index));
+  else inherited;
 end;