以JSON格式存储记录数组

Question

如何通过SuperObject库以JSON格式存储记录数组。例如..

type 
    TData = record 
    str: string; 
    int: Integer; 
    bool: Boolean; 
    flt: Double; 
    end; 

var 
DataArray: Array[0..100] of TData; 

Answer 1

只需使用超对象编组TSuperRTTIContext

program Project1; 

{$APPTYPE CONSOLE} 
{$R *.res} 

uses 
    superobject, 
    System.SysUtils; 

type 
    TData = record 
    str : string; 
    int : Integer; 
    bool : Boolean; 
    flt : Double; 
    end; 

    TDataArray = Array [0 .. 100] of TData; 

procedure Test; 
var 
    DataArray : TDataArray; 
    so :  ISuperObject; 
    ctx :  TSuperRttiContext; 
begin 
    ctx := TSuperRttiContext.Create; 
    try 
    so := ctx.AsJson<TDataArray>(DataArray); 
    finally 
    ctx.Free; 
    end; 
    Writeln(so.AsJson); 
end; 

begin 
    try 
    Test; 
    except 
    on E : Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 

    ReadLn; 

end. 

Answer 2

首先将其设为字符串。

Your array: 
//Array[0] := 'Apple'; 
//Array[1] := 'Orange'; 
//Array[2] := 'Banana'; 
myArrayAsStr := '"MyArray": [{ "1": "' + Array[0] +'", "2": "' + Array[1] +'"}'; 

然后，你可以让它变成JSON与SO(myArrayAsStr) 您可以随时生成您的阵列在不同的程序字符串，但我认为是这样做的方式。

虐待继续检查，如果有一个更简单的方法;）

编辑： 超对象还具有以下功能： function SA(const Args: array of const): ISuperObject; overload; 您可以到再次转换为字符串，并在总JSON添加它串。