Changeset 132 for trunk/UItems.pas

Timestamp:

May 2, 2023, 12:09:33 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Improved stored game state.

File:

• trunk/UItems.pas (modified) (3 diffs)

trunk/UItems.pas

@@ -119 +119 @@
   Node2 := Node.FirstChild;
   while Assigned(Node2) and (Node2.NodeName = DOMString(T.GetClassSysName)) do begin
-    RefId := StrToInt(string(Node.TextContent));
+    RefId := StrToInt(string(Node2.TextContent));
     NewItem := Target.FindById(RefId);
     if Assigned(NewItem) then Add(NewItem)
@@ -168 +168 @@
   Count := 0;
   Node2 := Node.FirstChild;
-  while Assigned(Node2) and (Node2.NodeName = UnicodeString(GetItemClass.GetClassSysName)) do begin
+  while Assigned(Node2) and (Node2.NodeName = UnicodeString(T.GetClassSysName)) do begin
     NewItem := CreateItem;
     NewItem.LoadFromXmlNode(Node2);
@@ -183 +183 @@
   for I := 0 to Count - 1 do
   with TItem(Items[I]) do begin
-    NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString(GetItemClass.GetClassSysName));
+    NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString(T.GetClassSysName));
     Node.AppendChild(NewNode2);
     SaveToXmlNode(NewNode2);