delphi json 添加嵌套數組
时间: 2024-08-01 08:01:39 浏览: 102
在Delphi中使用JSON组件添加嵌套数组通常涉及序列化和反序列化的过程。首先,你需要创建包含嵌套数据的复杂结构,然后使用JSON组件将其转换为字符串,存储或发送,最后从接收的字符串中读取并重构原始数据结构。
例如,假设有一个`Fruit`对象,其中包含颜色数组:
```delphi
type
TProduct = record
Name: string;
Colors: TArray<string>;
end;
var
Product: TProduct;
ProductData: TJSONObject;
Product.Name := 'Apple';
Product.Colors := ['Red', 'Green'];
// 将TProduct对象序列化为JSON
ProductData := TJSONObject.Create;
ProductData.AddPair('Name', TJSONValue.FromString(Product.Name));
ProductData.AddPair('Colors', TJSONArray.Create(Product.Colors));
```
如果你想在另一个地方动态加载这个嵌套数组,可以这样做:
```delphi
// 从JSON字符串中反序列化
var
ReconstructedProduct: TProduct;
ReceivedData: TStringStream;
ReceivedData := TStringStream.Create(JsonString);
try
ProductData.LoadFromStream(ReceivedData); // 假设JsonString是你接收到的数据
ReconstructedProduct := TProduct.Create;
ReconstructedProduct.Name := ProductData['Name'].AsString;
ReconstructedProduct.Colors := TJSONArray.FromObject(ProductData['Colors']).AsArray;
finally
ReceivedData.Free;
end;
```
这样就完成了嵌套数组的添加和加载过程。
阅读全文