求助，怎么用delphi操作Json文件转成数据库

最近刚好研究了一下 Delphi 操作 JSON ，老实说静态语言不太适合干这事会很吃力，可以用 aardio 操作 JSON 写入数据库比较省事，而且 aardio 也可以调用 Delphi 或嵌入 Delphi 控件。

用superobject就行了，网上全是源码
function DecodeS2CJsonToHead(const src:String; var head:TERP_S2C_Head; var jsonobj:ISuperObject):Boolean;
var
mainobj:ISuperObject;
begin
Result := False;
try
mainobj := SO(src);
if (mainobj <> nil) then
begin
head.seq_no := mainobj.I['seq_no'];
head.checked := mainobj.B['checked'];
if mainobj.O['msg_type'] = nil then
head.msg_type := -1
else
head.msg_type := mainobj.I['msg_type'];
head.broker := mainobj.S['broker'];
head.account := mainobj.S['account'];
jsonobj := mainobj;
result := True;
end;
except
Result := false;
end;
end;
简单方便