Сохранение массива записи в JSON

Question

Как массив записей может храниться в JSON через библиотеку SuperObject. Например:

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) Вы всегда можете создать свой массив как строку в другой процедуре, но я думаю будет способ сделать это.

Ill держать проверки, если есть более простой способ;)

EDIT: надобъекта также имеет следующие функции: function SA(const Args: array of const): ISuperObject; overload; Вы сможете преобразовать его в строку снова и добавить его в общем формате JSON строка.