Delphi Json

uses
      system.json   
var
    {statement json}
    InfoJson: TJSONObject；
begin
    InfoJson := TJSONObject.ParseJSONValue({json字符串}) as TJSONObject;
    InfoJson.GetValue('unit')；{取值}
    
end;

 

转载于:https://www.cnblogs.com/YiShen/p/9778205.html