谁有解析json格式数据的通用代码？

[秋天之落叶]

一个很大的json格式数据文件，字段很多，实在是懒得组织代码了，那位同学有通用的代码，能不能分享一下，万分感谢。
对了，我使用SuperObject编译不过去，会出错。
10.3.1版本。

[tanqth]

系统自己就有JSON解析。

[tanqth]

哦，你是“懒得组织代码”，给钱，有人帮你组织。

[秋天之落叶]

好吧，真没想到，excel2019竟然支持json格式的导入，哈

[秋天之落叶]

网上找了一个通用代码，有效果，但是会漏数组前的数据，需要的可以自己修改一下，哈
uses
SysUtils,
DBXJSON;

type
TProcessJSONString = TProc<TJSONString>;

procedure DoJSONObject(o: TJSONObject; Process: TProcessJSONString); forward;

procedure DoJSONArray(o: TJSONArray; Process: TProcessJSONString);
var i: integer;
v: TJSONValue;
begin
for i := 0 to o.Size - 1 do begin
v := o.Get(i);
if v is TJSONObject then
DoJSONObject(v as TJSONObject, Process);
end;
end;

procedure DoJSONObject(o: TJSONObject; Process: TProcessJSONString);
var i: integer;
p: TJSONPair;
begin
for i := 0 to o.Size - 1 do begin
p := o.Get(i);
Process(p.JsonString);
if p.JsonValue is TJSONObject then
DoJSONObject(p.JsonValue as TJSONObject, Process)
else if p.JsonValue is TJSONArray then
DoJSONArray(p.JsonValue as TJSONArray, Process)
else if p.JsonValue is TJSONString then
Process(p.JsonValue as TJSONString);
end;
end;

var o: TJSONObject;
begin
o := TJSONObject.ParseJSONValue('{"data":{"results":[{"Branch":"ACCT590003"}]}}') as TJSONObject;
try
DoJSONObject(o,
procedure (o: TJSONString)
begin
WriteLn(o.ToString);
end
);
finally
o.Free;
end;
ReadLn;
end.

[tanqth]

虽然我用不上，还是得支持一下的。