Delphi Json

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