ja := SA([]);

  jo := SO();

  jo.S['a'] := '455-555';

  ja.AsArray.Add( jo.AsObject.GetValues.AsArray[] );

  jo.S['a'] := '455-444';

  ja.AsArray.Add( jo.AsObject.GetValues.AsArray[] );

  jo.S['a'] := '455-666';

  ja.AsArray.Add( jo.AsObject.GetValues.AsArray[] );

  jo := SA([ja.AsArray[]]);  //用 ISuperObject对象也能作为元素，构建数组

  ShowMessage( jo.AsString + ' ' + ja.AsArray[].AsString );

  for I :=  to jo.AsArray.Length -  do //构建后的数组，能正常循环

    ShowMessage( jo.AsArray[I].AsString);