windos

Delphi Json

云博小周宇1 Min Read 
uses
      system.json   
var
    {statement json}
    InfoJson: TJSONObject；
begin
    InfoJson := TJSONObject.ParseJSONValue({json字符串}) as TJSONObject;
    InfoJson.GetValue(‘unit‘)；{取值}
    
end;