Changeset 132 for trunk/UItems.pas
- Timestamp:
- May 2, 2023, 12:09:33 AM (13 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UItems.pas
r131 r132 119 119 Node2 := Node.FirstChild; 120 120 while Assigned(Node2) and (Node2.NodeName = DOMString(T.GetClassSysName)) do begin 121 RefId := StrToInt(string(Node .TextContent));121 RefId := StrToInt(string(Node2.TextContent)); 122 122 NewItem := Target.FindById(RefId); 123 123 if Assigned(NewItem) then Add(NewItem) … … 168 168 Count := 0; 169 169 Node2 := Node.FirstChild; 170 while Assigned(Node2) and (Node2.NodeName = UnicodeString( GetItemClass.GetClassSysName)) do begin170 while Assigned(Node2) and (Node2.NodeName = UnicodeString(T.GetClassSysName)) do begin 171 171 NewItem := CreateItem; 172 172 NewItem.LoadFromXmlNode(Node2); … … 183 183 for I := 0 to Count - 1 do 184 184 with TItem(Items[I]) do begin 185 NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString( GetItemClass.GetClassSysName));185 NewNode2 := Node.OwnerDocument.CreateElement(UnicodeString(T.GetClassSysName)); 186 186 Node.AppendChild(NewNode2); 187 187 SaveToXmlNode(NewNode2);
Note:
See TracChangeset
for help on using the changeset viewer.