Changeset 410 for trunk/Packages/Common/ItemList.pas

Timestamp:

Jan 8, 2025, 11:12:32 AM (39 hours ago)

Author:

chronos

Message:

• Fixed: Incorrect ItemList reference evaluation.

File:

• trunk/Packages/Common/ItemList.pas (modified) (1 diff)

trunk/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]]));