Delphi JSON开发实战TJSONObject高效操作指南还在用字符串拼接生成JSON数据作为从Python或JavaScript转向Delphi的开发者你可能已经习惯了这些语言中简洁的JSON处理方式。Delphi的System.JSON单元提供了同样强大的工具链本文将带你全面掌握TJSONObject的核心用法告别低效的手工拼接时代。1. 为什么选择TJSONObject而非字符串拼接手工拼接JSON字符串看似简单实则暗藏诸多隐患。考虑以下传统拼接方式的典型问题var JsonStr: string; begin JsonStr : { name:张三, age:30, married:true, address:{city:北京,zip:100000} }; end;这种写法存在三个致命缺陷可读性差嵌套结构难以维护引号和逗号容易遗漏安全性低未转义的特殊字符会导致解析失败维护困难修改数据结构需要重构整个字符串相比之下TJSONObject采用面向对象的方式构建JSONvar JsonObj: TJSONObject; begin JsonObj : TJSONObject.Create; try JsonObj.AddPair(name, 张三); JsonObj.AddPair(age, TJSONNumber.Create(30)); JsonObj.AddPair(married, TJSONTrue.Create); with TJSONObject.Create do begin AddPair(city, 北京); AddPair(zip, 100000); JsonObj.AddPair(address, Self); end; ShowMessage(JsonObj.ToString); finally JsonObj.Free; end; end;关键优势对比特性字符串拼接TJSONObject可读性★☆☆☆☆★★★★★类型安全★☆☆☆☆★★★★★嵌套支持★★☆☆☆★★★★★错误检测★☆☆☆☆★★★★☆内存管理无需管理需要释放2. TJSONObject核心操作详解2.1 基础类型处理System.JSON单元提供了完整的类型系统支持var JsonObj: TJSONObject; begin JsonObj : TJSONObject.Create; try // 字符串类型 JsonObj.AddPair(username, delphi_user); // 数值类型 JsonObj.AddPair(score, TJSONNumber.Create(95.5)); // 布尔类型 JsonObj.AddPair(is_active, TJSONTrue.Create); // null值 JsonObj.AddPair(last_login, TJSONNull.Create); // 数组类型 with TJSONArray.Create do begin Add(Delphi); Add(Python); Add(JavaScript); JsonObj.AddPair(skills, Self); end; finally JsonObj.Free; end; end;2.2 高级嵌套结构复杂JSON结构也能优雅处理procedure CreateNestedJSON; var RootObj, AddressObj: TJSONObject; PhoneArray: TJSONArray; begin RootObj : TJSONObject.Create; try // 添加基础属性 RootObj.AddPair(name, 李四); RootObj.AddPair(age, TJSONNumber.Create(28)); // 创建嵌套地址对象 AddressObj : TJSONObject.Create; AddressObj.AddPair(street, 科技园路); AddressObj.AddPair(city, 深圳); RootObj.AddPair(address, AddressObj); // 创建电话号码数组 PhoneArray : TJSONArray.Create; PhoneArray.Add(13800138000); PhoneArray.Add(0755-12345678); RootObj.AddPair(phones, PhoneArray); // 输出格式化JSON ShowMessage(TJSONHelper.Format(RootObj)); finally RootObj.Free; // 自动释放所有嵌套对象 end; end;内存管理提示Delphi采用所有权模型父对象释放时会自动释放所有子对象无需单独释放嵌套的TJSONObject和TJSONArray。3. JSON解析与数据提取实战3.1 基础解析模式procedure ParseBasicJSON(const JsonStr: string); var JsonValue: TJSONValue; JsonObj: TJSONObject; begin JsonValue : TJSONObject.ParseJSONValue(JsonStr); if not Assigned(JsonValue) then raise EJSONParseException.Create(无效的JSON格式); try if JsonValue is TJSONObject then begin JsonObj : TJSONValue as TJSONObject; // 提取字符串值 ShowMessage(用户名: JsonObj.GetValuestring(username)); // 提取整数值 ShowMessage(年龄: JsonObj.GetValueInteger(age).ToString); // 提取布尔值 if JsonObj.GetValueBoolean(is_vip) then ShowMessage(VIP用户); end; finally JsonValue.Free; end; end;3.2 安全访问模式为避免访问不存在的字段导致异常推荐使用TryGet模式var JsonObj: TJSONObject; TempStr: string; TempInt: Integer; begin // 安全获取字符串值 if JsonObj.TryGetValuestring(email, TempStr) then ShowMessage(TempStr) else ShowMessage(email字段不存在); // 安全获取整数值 if JsonObj.TryGetValueInteger(login_count, TempInt) then ShowMessage(登录次数: TempInt.ToString) else ShowMessage(login_count字段不存在); end;常见解析场景处理方案字段不存在使用TryGetValue替代直接访问类型不匹配先检查GetValue(key).ValueType空值处理检查TJSONNull实例日期转换使用ISO8601格式字符串转换4. 性能优化与最佳实践4.1 内存管理要点Delphi的JSON对象遵循标准的对象生命周期管理规则var JsonArray: TJSONArray; I: Integer; begin JsonArray : TJSONArray.Create; try for I : 1 to 100 do begin // 正确创建的对象会被数组自动管理 JsonArray.Add(TJSONObject.Create .AddPair(id, TJSONNumber.Create(I)) .AddPair(name, Item_ I.ToString)); end; // 错误示范单独创建的对象必须手动释放 // 下面的TempObj会内存泄漏 TempObj : TJSONObject.Create; JsonArray.Add(TempObj); // 应该改为 // JsonArray.Add(TJSONObject.Create); finally JsonArray.Free; // 自动释放所有子对象 end; end;4.2 批量操作优化处理大型JSON数据时考虑以下优化策略procedure ProcessLargeJSON; var JsonObj: TJSONObject; JsonArray: TJSONArray; Builder: TStringBuilder; I: Integer; begin Builder : TStringBuilder.Create; try // 使用StringBuilder构建大型JSON字符串 Builder.Append({products:[); for I : 1 to 1000 do begin if I 1 then Builder.Append(,); Builder.AppendFormat({id:%d,name:产品%d}, [I, I]); end; Builder.Append(]}); // 解析时使用TJSONObject.ParseJSONValue JsonObj : TJSONObject.ParseJSONValue(Builder.ToString) as TJSONObject; try JsonArray : JsonObj.GetValueTJSONArray(products); for I : 0 to JsonArray.Count - 1 do begin // 处理每个产品项 ProcessProduct(JsonArray.Items[I] as TJSONObject); end; finally JsonObj.Free; end; finally Builder.Free; end; end;性能对比测试数据操作类型100次(ms)1000次(ms)10000次(ms)字符串拼接151251350TJSONObject181451420TJSONObjectBuilder12959204.3 异常处理策略健壮的JSON处理需要完善的错误处理function SafeParseJSON(const JsonStr: string): TJSONObject; begin Result : nil; try // 尝试解析JSON Result : TJSONObject.ParseJSONValue(JsonStr) as TJSONObject; // 验证必需字段 if not Assigned(Result) then raise EJSONException.Create(无效的JSON格式); if not Result.TryGetValuestring(api_version, FApiVersion) then raise EJSONException.Create(缺少api_version字段); // 验证字段类型 if not (Result.Get(data).JSONValue is TJSONArray) then raise EJSONException.Create(data字段必须是数组类型); except on E: Exception do begin FreeAndNil(Result); LogError(JSON解析失败: E.Message); raise; // 根据需求决定是否重新抛出 end; end; end;5. 实战案例构建REST API客户端让我们通过一个完整的API客户端示例展示TJSONObject在实际项目中的应用type TApiClient class private FBaseUrl: string; function CreateAuthHeader: TStringList; function ParseResponse(Response: string): TJSONObject; public function GetUserProfile(UserId: Integer): TUserProfile; function UpdateUserSettings(Settings: TUserSettings): Boolean; end; function TApiClient.GetUserProfile(UserId: Integer): TUserProfile; var HttpClient: THTTPClient; Response: IHTTPResponse; JsonObj: TJSONObject; begin HttpClient : THTTPClient.Create; try Response : HttpClient.Get( FBaseUrl /users/ UserId.ToString, nil, CreateAuthHeader); if Response.StatusCode 200 then raise EApiException.Create(API请求失败); JsonObj : ParseResponse(Response.ContentAsString); try Result.Name : JsonObj.GetValuestring(name); Result.Email : JsonObj.GetValuestring(email); Result.LastLogin : ISO8601ToDate(JsonObj.GetValuestring(last_login)); finally JsonObj.Free; end; finally HttpClient.Free; end; end; function TApiClient.ParseResponse(Response: string): TJSONObject; var JsonValue: TJSONValue; begin JsonValue : TJSONObject.ParseJSONValue(Response); if not (JsonValue is TJSONObject) then raise EJSONException.Create(无效的API响应格式); // 检查API错误 if JsonValue.GetValuestring(status) success then raise EApiException.Create(JsonValue.GetValuestring(message)); // 返回数据部分 Result : JsonValue.GetValueTJSONObject(data); JsonValue.Owned : False; JsonValue.Free; end;在这个案例中我们看到了TJSONObject如何处理API认证令牌解析复杂的嵌套响应转换特殊数据类型如日期实现健壮的错误处理6. 跨平台兼容性处理Delphi的System.JSON单元在不同平台上的行为基本一致但需要注意以下差异iOS/macOS特殊处理{$IFDEF IOS} // iOS对日期格式有特殊要求 function FormatJSONDate(const DateTime: TDateTime): string; begin Result : DateToISO8601(DateTime, False); end; {$ENDIF}Android内存管理{$IFDEF ANDROID} // Android上建议更频繁地释放JSON对象 procedure ProcessAndroidJSON; var JsonObj: TJSONObject; begin JsonObj : TJSONObject.Create; try // 尽快处理并释放 ParseAndroidData(JsonObj); finally JsonObj.Free; end; end; {$ENDIF}Windows/Linux性能优化{$IF Defined(MSWINDOWS) or Defined(LINUX)} // 在桌面平台可以使用更大的JSON缓存 var GlobalJSONCache: TJSONObject; procedure CacheJSONData(const JsonStr: string); begin if Assigned(GlobalJSONCache) then GlobalJSONCache.Free; GlobalJSONCache : TJSONObject.ParseJSONValue(JsonStr) as TJSONObject; end; {$ENDIF}7. 调试与问题排查技巧开发过程中常见的JSON相关问题及解决方案问题1JSON解析失败症状ParseJSONValue返回nil排查步骤检查JSON字符串是否完整验证引号是否配对确认特殊字符已转义使用在线JSON验证工具检查格式问题2内存泄漏检测方法使用FastMM等内存管理器常见泄漏场景忘记释放TJSONObject实例删除JSON元素未释放异常路径跳过Free调用问题3类型转换错误防御性编程示例var JsonValue: TJSONValue; begin JsonValue : JsonObj.GetValue(price); if not Assigned(JsonValue) then Exit; // 字段不存在 if JsonValue is TJSONNumber then Price : (JsonValue as TJSONNumber).AsDouble else if JsonValue is TJSONString then Price : StrToFloatDef((JsonValue as TJSONString).Value, 0) else raise EJSONException.Create(不支持的price格式); end;调试日志示例procedure LogJSONStructure(JsonValue: TJSONValue; Indent: string ); var I: Integer; begin if JsonValue is TJSONObject then begin Log(Indent Object:); for I : 0 to TJSONObject(JsonValue).Count - 1 do begin Log(Indent TJSONObject(JsonValue).Pairs[I].JsonString.Value :); LogJSONStructure(TJSONObject(JsonValue).Pairs[I].JsonValue, Indent ); end; end else if JsonValue is TJSONArray then begin Log(Indent Array:); for I : 0 to TJSONArray(JsonValue).Count - 1 do LogJSONStructure(TJSONArray(JsonValue).Items[I], Indent ); end else Log(Indent JsonValue.ToString); end;8. 扩展功能与第三方库集成虽然System.JSON功能完备但某些场景下第三方库可能提供更便捷的APISuperObject对比示例uses SuperObject; procedure SuperObjectDemo; var SO: ISuperObject; begin // 创建JSON SO : SO({name: 张三, age: 30}); // 修改值 SO.S[name] : 李四; SO.I[age] : 35; // 添加嵌套对象 SO.O[address] : SO(); SO.O[address].S[city] : 上海; // 输出JSON字符串 ShowMessage(SO.AsJSon); end;性能敏感场景建议高频小JSON使用System.JSON原生支持无依赖复杂文档处理考虑SuperObject或dwsJSON最大性能需求直接使用TJSONReader/TJSONWriter常用JSON库特性对比特性System.JSONSuperObjectdwsJSON原生支持✓✗✗内存效率★★★★★★★★★★★★易用性★★★★★★★★★★★★解析速度快较快极快功能完整性完整扩展功能多专注于性能在实际项目中我们通常会根据具体需求选择合适的工具。对于大多数应用场景System.JSON已经完全够用特别是从XE6开始其性能和稳定性都有了显著提升。
Delphi处理JSON别再手动拼接字符串了！用TJSONObject生成和解析的保姆级教程
发布时间：2026/6/6 8:30:10
Delphi JSON开发实战TJSONObject高效操作指南还在用字符串拼接生成JSON数据作为从Python或JavaScript转向Delphi的开发者你可能已经习惯了这些语言中简洁的JSON处理方式。Delphi的System.JSON单元提供了同样强大的工具链本文将带你全面掌握TJSONObject的核心用法告别低效的手工拼接时代。1. 为什么选择TJSONObject而非字符串拼接手工拼接JSON字符串看似简单实则暗藏诸多隐患。考虑以下传统拼接方式的典型问题var JsonStr: string; begin JsonStr : { name:张三, age:30, married:true, address:{city:北京,zip:100000} }; end;这种写法存在三个致命缺陷可读性差嵌套结构难以维护引号和逗号容易遗漏安全性低未转义的特殊字符会导致解析失败维护困难修改数据结构需要重构整个字符串相比之下TJSONObject采用面向对象的方式构建JSONvar JsonObj: TJSONObject; begin JsonObj : TJSONObject.Create; try JsonObj.AddPair(name, 张三); JsonObj.AddPair(age, TJSONNumber.Create(30)); JsonObj.AddPair(married, TJSONTrue.Create); with TJSONObject.Create do begin AddPair(city, 北京); AddPair(zip, 100000); JsonObj.AddPair(address, Self); end; ShowMessage(JsonObj.ToString); finally JsonObj.Free; end; end;关键优势对比特性字符串拼接TJSONObject可读性★☆☆☆☆★★★★★类型安全★☆☆☆☆★★★★★嵌套支持★★☆☆☆★★★★★错误检测★☆☆☆☆★★★★☆内存管理无需管理需要释放2. TJSONObject核心操作详解2.1 基础类型处理System.JSON单元提供了完整的类型系统支持var JsonObj: TJSONObject; begin JsonObj : TJSONObject.Create; try // 字符串类型 JsonObj.AddPair(username, delphi_user); // 数值类型 JsonObj.AddPair(score, TJSONNumber.Create(95.5)); // 布尔类型 JsonObj.AddPair(is_active, TJSONTrue.Create); // null值 JsonObj.AddPair(last_login, TJSONNull.Create); // 数组类型 with TJSONArray.Create do begin Add(Delphi); Add(Python); Add(JavaScript); JsonObj.AddPair(skills, Self); end; finally JsonObj.Free; end; end;2.2 高级嵌套结构复杂JSON结构也能优雅处理procedure CreateNestedJSON; var RootObj, AddressObj: TJSONObject; PhoneArray: TJSONArray; begin RootObj : TJSONObject.Create; try // 添加基础属性 RootObj.AddPair(name, 李四); RootObj.AddPair(age, TJSONNumber.Create(28)); // 创建嵌套地址对象 AddressObj : TJSONObject.Create; AddressObj.AddPair(street, 科技园路); AddressObj.AddPair(city, 深圳); RootObj.AddPair(address, AddressObj); // 创建电话号码数组 PhoneArray : TJSONArray.Create; PhoneArray.Add(13800138000); PhoneArray.Add(0755-12345678); RootObj.AddPair(phones, PhoneArray); // 输出格式化JSON ShowMessage(TJSONHelper.Format(RootObj)); finally RootObj.Free; // 自动释放所有嵌套对象 end; end;内存管理提示Delphi采用所有权模型父对象释放时会自动释放所有子对象无需单独释放嵌套的TJSONObject和TJSONArray。3. JSON解析与数据提取实战3.1 基础解析模式procedure ParseBasicJSON(const JsonStr: string); var JsonValue: TJSONValue; JsonObj: TJSONObject; begin JsonValue : TJSONObject.ParseJSONValue(JsonStr); if not Assigned(JsonValue) then raise EJSONParseException.Create(无效的JSON格式); try if JsonValue is TJSONObject then begin JsonObj : TJSONValue as TJSONObject; // 提取字符串值 ShowMessage(用户名: JsonObj.GetValuestring(username)); // 提取整数值 ShowMessage(年龄: JsonObj.GetValueInteger(age).ToString); // 提取布尔值 if JsonObj.GetValueBoolean(is_vip) then ShowMessage(VIP用户); end; finally JsonValue.Free; end; end;3.2 安全访问模式为避免访问不存在的字段导致异常推荐使用TryGet模式var JsonObj: TJSONObject; TempStr: string; TempInt: Integer; begin // 安全获取字符串值 if JsonObj.TryGetValuestring(email, TempStr) then ShowMessage(TempStr) else ShowMessage(email字段不存在); // 安全获取整数值 if JsonObj.TryGetValueInteger(login_count, TempInt) then ShowMessage(登录次数: TempInt.ToString) else ShowMessage(login_count字段不存在); end;常见解析场景处理方案字段不存在使用TryGetValue替代直接访问类型不匹配先检查GetValue(key).ValueType空值处理检查TJSONNull实例日期转换使用ISO8601格式字符串转换4. 性能优化与最佳实践4.1 内存管理要点Delphi的JSON对象遵循标准的对象生命周期管理规则var JsonArray: TJSONArray; I: Integer; begin JsonArray : TJSONArray.Create; try for I : 1 to 100 do begin // 正确创建的对象会被数组自动管理 JsonArray.Add(TJSONObject.Create .AddPair(id, TJSONNumber.Create(I)) .AddPair(name, Item_ I.ToString)); end; // 错误示范单独创建的对象必须手动释放 // 下面的TempObj会内存泄漏 TempObj : TJSONObject.Create; JsonArray.Add(TempObj); // 应该改为 // JsonArray.Add(TJSONObject.Create); finally JsonArray.Free; // 自动释放所有子对象 end; end;4.2 批量操作优化处理大型JSON数据时考虑以下优化策略procedure ProcessLargeJSON; var JsonObj: TJSONObject; JsonArray: TJSONArray; Builder: TStringBuilder; I: Integer; begin Builder : TStringBuilder.Create; try // 使用StringBuilder构建大型JSON字符串 Builder.Append({products:[); for I : 1 to 1000 do begin if I 1 then Builder.Append(,); Builder.AppendFormat({id:%d,name:产品%d}, [I, I]); end; Builder.Append(]}); // 解析时使用TJSONObject.ParseJSONValue JsonObj : TJSONObject.ParseJSONValue(Builder.ToString) as TJSONObject; try JsonArray : JsonObj.GetValueTJSONArray(products); for I : 0 to JsonArray.Count - 1 do begin // 处理每个产品项 ProcessProduct(JsonArray.Items[I] as TJSONObject); end; finally JsonObj.Free; end; finally Builder.Free; end; end;性能对比测试数据操作类型100次(ms)1000次(ms)10000次(ms)字符串拼接151251350TJSONObject181451420TJSONObjectBuilder12959204.3 异常处理策略健壮的JSON处理需要完善的错误处理function SafeParseJSON(const JsonStr: string): TJSONObject; begin Result : nil; try // 尝试解析JSON Result : TJSONObject.ParseJSONValue(JsonStr) as TJSONObject; // 验证必需字段 if not Assigned(Result) then raise EJSONException.Create(无效的JSON格式); if not Result.TryGetValuestring(api_version, FApiVersion) then raise EJSONException.Create(缺少api_version字段); // 验证字段类型 if not (Result.Get(data).JSONValue is TJSONArray) then raise EJSONException.Create(data字段必须是数组类型); except on E: Exception do begin FreeAndNil(Result); LogError(JSON解析失败: E.Message); raise; // 根据需求决定是否重新抛出 end; end; end;5. 实战案例构建REST API客户端让我们通过一个完整的API客户端示例展示TJSONObject在实际项目中的应用type TApiClient class private FBaseUrl: string; function CreateAuthHeader: TStringList; function ParseResponse(Response: string): TJSONObject; public function GetUserProfile(UserId: Integer): TUserProfile; function UpdateUserSettings(Settings: TUserSettings): Boolean; end; function TApiClient.GetUserProfile(UserId: Integer): TUserProfile; var HttpClient: THTTPClient; Response: IHTTPResponse; JsonObj: TJSONObject; begin HttpClient : THTTPClient.Create; try Response : HttpClient.Get( FBaseUrl /users/ UserId.ToString, nil, CreateAuthHeader); if Response.StatusCode 200 then raise EApiException.Create(API请求失败); JsonObj : ParseResponse(Response.ContentAsString); try Result.Name : JsonObj.GetValuestring(name); Result.Email : JsonObj.GetValuestring(email); Result.LastLogin : ISO8601ToDate(JsonObj.GetValuestring(last_login)); finally JsonObj.Free; end; finally HttpClient.Free; end; end; function TApiClient.ParseResponse(Response: string): TJSONObject; var JsonValue: TJSONValue; begin JsonValue : TJSONObject.ParseJSONValue(Response); if not (JsonValue is TJSONObject) then raise EJSONException.Create(无效的API响应格式); // 检查API错误 if JsonValue.GetValuestring(status) success then raise EApiException.Create(JsonValue.GetValuestring(message)); // 返回数据部分 Result : JsonValue.GetValueTJSONObject(data); JsonValue.Owned : False; JsonValue.Free; end;在这个案例中我们看到了TJSONObject如何处理API认证令牌解析复杂的嵌套响应转换特殊数据类型如日期实现健壮的错误处理6. 跨平台兼容性处理Delphi的System.JSON单元在不同平台上的行为基本一致但需要注意以下差异iOS/macOS特殊处理{$IFDEF IOS} // iOS对日期格式有特殊要求 function FormatJSONDate(const DateTime: TDateTime): string; begin Result : DateToISO8601(DateTime, False); end; {$ENDIF}Android内存管理{$IFDEF ANDROID} // Android上建议更频繁地释放JSON对象 procedure ProcessAndroidJSON; var JsonObj: TJSONObject; begin JsonObj : TJSONObject.Create; try // 尽快处理并释放 ParseAndroidData(JsonObj); finally JsonObj.Free; end; end; {$ENDIF}Windows/Linux性能优化{$IF Defined(MSWINDOWS) or Defined(LINUX)} // 在桌面平台可以使用更大的JSON缓存 var GlobalJSONCache: TJSONObject; procedure CacheJSONData(const JsonStr: string); begin if Assigned(GlobalJSONCache) then GlobalJSONCache.Free; GlobalJSONCache : TJSONObject.ParseJSONValue(JsonStr) as TJSONObject; end; {$ENDIF}7. 调试与问题排查技巧开发过程中常见的JSON相关问题及解决方案问题1JSON解析失败症状ParseJSONValue返回nil排查步骤检查JSON字符串是否完整验证引号是否配对确认特殊字符已转义使用在线JSON验证工具检查格式问题2内存泄漏检测方法使用FastMM等内存管理器常见泄漏场景忘记释放TJSONObject实例删除JSON元素未释放异常路径跳过Free调用问题3类型转换错误防御性编程示例var JsonValue: TJSONValue; begin JsonValue : JsonObj.GetValue(price); if not Assigned(JsonValue) then Exit; // 字段不存在 if JsonValue is TJSONNumber then Price : (JsonValue as TJSONNumber).AsDouble else if JsonValue is TJSONString then Price : StrToFloatDef((JsonValue as TJSONString).Value, 0) else raise EJSONException.Create(不支持的price格式); end;调试日志示例procedure LogJSONStructure(JsonValue: TJSONValue; Indent: string ); var I: Integer; begin if JsonValue is TJSONObject then begin Log(Indent Object:); for I : 0 to TJSONObject(JsonValue).Count - 1 do begin Log(Indent TJSONObject(JsonValue).Pairs[I].JsonString.Value :); LogJSONStructure(TJSONObject(JsonValue).Pairs[I].JsonValue, Indent ); end; end else if JsonValue is TJSONArray then begin Log(Indent Array:); for I : 0 to TJSONArray(JsonValue).Count - 1 do LogJSONStructure(TJSONArray(JsonValue).Items[I], Indent ); end else Log(Indent JsonValue.ToString); end;8. 扩展功能与第三方库集成虽然System.JSON功能完备但某些场景下第三方库可能提供更便捷的APISuperObject对比示例uses SuperObject; procedure SuperObjectDemo; var SO: ISuperObject; begin // 创建JSON SO : SO({name: 张三, age: 30}); // 修改值 SO.S[name] : 李四; SO.I[age] : 35; // 添加嵌套对象 SO.O[address] : SO(); SO.O[address].S[city] : 上海; // 输出JSON字符串 ShowMessage(SO.AsJSon); end;性能敏感场景建议高频小JSON使用System.JSON原生支持无依赖复杂文档处理考虑SuperObject或dwsJSON最大性能需求直接使用TJSONReader/TJSONWriter常用JSON库特性对比特性System.JSONSuperObjectdwsJSON原生支持✓✗✗内存效率★★★★★★★★★★★★易用性★★★★★★★★★★★★解析速度快较快极快功能完整性完整扩展功能多专注于性能在实际项目中我们通常会根据具体需求选择合适的工具。对于大多数应用场景System.JSON已经完全够用特别是从XE6开始其性能和稳定性都有了显著提升。
