superobject使用方法整理。 procedure SaveJson; var json, json_sub: ISuperObject; begin json := SO; json.S['name'] := 'Henri Gourvest'; json.B['vip'] := TRUE; json.O['telephones'] := SA([]); json.A['telephones'].S[0] := '000000000'; json.A['telephones'].S[1] := '111111111111'; js