Простой пример консольного приложения.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
program System.JSON.Example; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, System.JSON; function JsonToString(aJson: TJsonObject): string; begin Result := aJson.ToString(); end; function StringToJson(aString: string): TJSONObject; begin Result := TJSONObject.ParseJSONValue(aString) as TJSONObject; end; var jo, anotherJo: TJsonObject; jsonStr: string; begin jo := TJsonObject.Create(); try // JsonToString jo.AddPair((TJSONPair.Create('SomeName', 'SomeValue'))); jo.AddPair((TJSONPair.Create('SomeName1', 'SomeValue1'))); jsonStr := JsonToString(jo); Writeln('JsonToString: ' + jsonStr); // StringToJson anotherJo := StringToJson(jsonStr); try Writeln('StringToJson Ok'); finally anotherJo.Free(); end; Readln; finally jo.Free(); end; end. |