1

我正在尝试从一个 JSON 复制到第二个对象类型数组（名为“项目”）。但是，在复制时，第二个 JSON 总是只创建一个没有项目 (lenght 0) 的空“项目”字段。请指教

FSobj := TSuperObject.ParseFile( wBaseJSON, True);
if Assigned(FSobj) then
begin
   ...                         
   wObjItems := FSobj.o[ID].o['items'];
   if not(Assigned(wObjItems)) then
   begin
      wSobjDet := TSuperObject.ParseFile( wJsonsDetFolder + ID + '.json', True);
      if Assigned(wSobjDet) then
      begin
         if Assigned(wSobjDet.A['items']) then 
         begin
            FSobj.o[ID].o['items'] := SA([]);
            for It := 0 to wSobjDet.O['items'].AsArray.Length-1 do
               FSobj.o[ID].A['items'].add(wSobjDet.O['items'].AsArray[it]);
         end;
      end;
   end;
end;

wSobjDet.O['items'].AsArray.Length = 20（数组中的每条记录都有不同的类型——字符串、对象、整数...）

新创建的 FSObj 仅获取空数组“项目”-长度 = 0（通过 txt 检查）

我究竟做错了什么？

（我已经缩短并编辑了代码以使其更具可读性，但过程 - 逐条记录现有字段并将它们分配给新字段 - 在代码中。）

4

0 回答 0