Delphi SuperObject 字符串增加到数组

var

    aJson, bJson: ISuperObject;
    aSuperArray: TSuperArray;

 begin

            aJson := SO(CodeStr);
            bJson := SO();
            bJson['ABC'] :=  SA([]);
            bJson.A['ABC'].Add(aJson);
            aSuperArray := bJson.A['ABC'];
            if aSuperArray <> nil then
            begin
                ShowMsg(IntToStr(aSuperArray.Length));  //1  ,折腾半天，1个，还是木有达到取JSON内元素个数的目的
            end;

end;