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;