以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添加它串。