Changeset 410 for tags/1.4.0

Timestamp:

Jan 8, 2025, 11:12:32 AM (2 days ago)

Author:

chronos

Message:

• Fixed: Incorrect ItemList reference evaluation.

Location:

tags/1.4.0

Files:

• Install/flatpak/net.zdechov.app.xTactics.yml (modified) (1 diff)
• Packages/Common/ItemList.pas (modified) (1 diff)

tags/1.4.0/Install/flatpak/net.zdechov.app.xTactics.yml

@@ -27 +27 @@
       - type: svn
         url: https://svn.zdechov.net/xtactics/tags/1.4.0
-        revision: r409
+        revision: r410
     buildsystem: simple
     build-commands:

tags/1.4.0/Packages/Common/ItemList.pas

@@ -515 +515 @@
     ReadId := ReadInteger(Node, Field.SysName, 0);
     ReferenceList := GetReferenceList(Field.Index);
-    if (ReadId > 0) and Assigned(ReferenceList) then
+    if (ReadId > 0) and Assigned(ReferenceList) then begin
       RefItem := ReferenceList.FindById(ReadId);
       if Assigned(RefItem) then
         SetValueReference(Field.Index, RefItem)
         else raise Exception.Create('Reference id ' + IntToStr(ReadId) + ' not found.');
+    end;
   end else
     raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));