json - レコードの配列を 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] +'"}';

次にSO(myArrayAsStr) 、別の手順で配列を常に文字列として生成できますが、それがその方法だと思います。

もっと簡単な方法がないかチェックし続けます;）

編集: SuperObject には次の機能もあり function SA(const Args: array of const): ISuperObject; overload; ます。それを再度文字列に変換して、JSON 文字列全体に追加することができます。