gpt4 book ai didi

json - 在 JSON 中存储记录数组

转载 作者:行者123 更新时间:2023-12-03 18:01:11 33 4
gpt4 key购买 nike

如何通过 SuperObject 库将记录数组存储在 JSON 中。例如..

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

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

最佳答案

只需使用 super 对象 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 - 在 JSON 中存储记录数组,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15430110/

33 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com