上传者: lwson2008
|
上传时间: 2021-12-13 21:30:32
|
文件大小: 203KB
|
文件类型: -
Delphi读写操作JSON字符串时,需引用一个superobject.pas文件。
var
jo,jt:ISuperObject;
begin
jo:=SO();
jt:=SO();
jo.S['姓名']:='小王';
jo.I['年龄']:=25;
jo.S['性别']:='男';
jt.O['人员']:=jo;
ShowMessage('原JSON字符串为:'+jt.AsString);
ShowMessage('人员中姓名的JSON值:'+jt.O['人员'].S['姓名']);//获取指定JSON值
end;