本文整理自网络,侵删。
uses system.json var {statement json} InfoJson: TJSONObject;begin InfoJson := TJSONObject.ParseJSONValue({json字符串}) as TJSONObject; InfoJson.GetValue('unit');{取值} end;
相关阅读 >>
Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta
Delphi 使用tnethttprequest / tnethttpclient访问web服务器
更多相关阅读请进入《Delphi》频道 >>