本文介绍了将记录数组存储在JSON中的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
如何通过SuperObject库将记录数组存储在JSON中.例如.
How can an array of record be stored in JSON via SuperObject library. For example..
type TData = record str: string; int: Integer; bool: Boolean; flt: Double; end; var DataArray: Array[0..100] of TData; 推荐答案只需使用超级对象编组 TSuperRTTIContext
Just use the superobject Marshalling 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.更多推荐
将记录数组存储在JSON中
发布评论